12-11-2018, Saat: 20:05
iyi akşamlar,
Projem de butonların isimlerini kullanıcının değiştirmesine imkan sağlamak için edit kullanmak yerine kolay bir çözüm getirmek için bakınırken delphi ile gelen örnek projelerden SQLite örnek projesine rastladım ve orda mobil için İnputbox ya da delphideki adı ile İnputQuery'nin kullanıldığını gördüm ve kullandım. bunu da paylaşmak istedim belki birisinin de işine yarar düşüncesi ile
uses : IOUtils, FMX.DialogService;
Projem de butonların isimlerini kullanıcının değiştirmesine imkan sağlamak için edit kullanmak yerine kolay bir çözüm getirmek için bakınırken delphi ile gelen örnek projelerden SQLite örnek projesine rastladım ve orda mobil için İnputbox ya da delphideki adı ile İnputQuery'nin kullanıldığını gördüm ve kullandım. bunu da paylaşmak istedim belki birisinin de işine yarar düşüncesi ile
uses : IOUtils, FMX.DialogService;
procedure Tgoogleform.Button1Click(Sender: TObject); var LDefaultValue, LPrompt, TaskName: string; begin try LPrompt := 'E-Posta'; LDefaultValue := ''; TDialogService.InputQuery('E-Posta Adresinizi Giriniz', [LPrompt], [LDefaultValue], procedure(const AResult: TModalResult; const AValues: array of string) begin if AResult = mrOk then TaskName := AValues[0] else TaskName := ''; if not (TaskName.Trim = '') then begin Button1.Text := TaskName ; end; end); except on e: Exception do begin ShowMessage(e.Message); end; end; end;