Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
InputQuery kullanımı
#1
Lightbulb 
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  Shy

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;
Hayat bakış açına göredir ; Baktığında gördüğün görmeni istedikleridir...
Cevapla
#2
Kullanıcıya "Cancel" hakkını vermek için aşağıdaki şekilde de deneyebilirsiniz.

procedure TForm1.Button1Click(Sender: TObject);
var
  aValue, LPrompt, TaskName : string;
begin
  try
    LPrompt := 'Lütfen Metni Giriniz : ';
    aValue := TButton(Sender).Text; // varsayılan olarak butonun kendisi
    if InputQuery( 'Giriş', [LPrompt], aValue ) then
    begin
     if Trim(aValue) <> ''
       then TButton(Sender).Text := aValue;
    end;
  except
    on e: Exception do
    begin
      ShowMessage(e.Message);
    end;
  end;
end;

Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#3
(12-11-2018, Saat: 22:40)mrmarman Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Kullanıcıya "Cancel" hakkını vermek için aşağıdaki şekilde de deneyebilirsiniz.

procedure TForm1.Button1Click(Sender: TObject);
var
  aValue, LPrompt, TaskName : string;
begin
  try
    LPrompt := 'Lütfen Metni Giriniz : ';
    aValue := TButton(Sender).Text; // varsayılan olarak butonun kendisi
    if InputQuery( 'Giriş', [LPrompt], aValue ) then
    begin
     if Trim(aValue) <> ''
       then TButton(Sender).Text := aValue;
    end;
  except
    on e: Exception do
    begin
      ShowMessage(e.Message);
    end;
  end;
end;


Cancel ve Ok butonlari varsayılan olarak mevcutmuş hocam  Shy

Teşekkürler destek için  Shy
Hayat bakış açına göredir ; Baktığında gördüğün görmeni istedikleridir...
Cevapla
#4
Yanlış anladınız, Cancel butonu çalışmıyor diye yazmıştım
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#5
(13-11-2018, Saat: 12:11)mrmarman Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Yanlış anladınız, Cancel butonu çalışmıyor diye yazmıştım

umarım yine yanlış anlıyorumdur çünkü cancel butonunu test ettim orjinalinde. ve çalışıyor hocam  Blush

ama boş bir yere basma işleminde de iptal ediyor belki cancel butonunu da öyle algılıyor olabilir  Shy


DÜZELTME ;

Fark ettim hocam windows ortamında işlevselliği yok cancel'in. Shy

mobilde sorun yaşatmıyor sadece  Shy
Hayat bakış açına göredir ; Baktığında gördüğün görmeni istedikleridir...
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi FMX Server kullanımı mfb23 4 233 27-09-2019, Saat: 14:03
Son Yorum: Halil Han Badem
  Thread kullanmadan veya IdThreadComponent ile AniIndicator kullanımı hk. pro_imaj 17 3.841 30-05-2019, Saat: 17:32
Son Yorum: caoster
  Delphi AVD Manager kullanımı Bay_Y 18 2.774 11-12-2018, Saat: 16:00
Son Yorum: Bay_Y
  scrollbox kullanımı arsl01 10 1.464 12-07-2018, Saat: 11:34
Son Yorum: Fesih ARSLAN
  FMX Projede idTCPClient ReadLn Komut Kullanımı Hk. Halil Han Badem 6 1.115 29-01-2018, Saat: 11:14
Son Yorum: Halil Han Badem



Konuyu Okuyanlar: 1 Ziyaretçi