Gönderen Konu: kendi dialog pencerelerimizi nasıl yapabiliriz? (Okunma sayısı 1173 defa)

sheak · « : 04 Ağustos 2009 13:04:05 »

aklıma takılan şey, windowsun dialogları yerine kendi diaologlarımızı nasıl kullanabiliriz? yani onu nasıl tasarlar nasıl kullanımını sağlarız?

Ferit Ceylan · « **Yanıtla #1 :** 01 Mart 2012 14:10:19 »

soru baya eski ama yeni gördüm belki birilerinin işine yarar diye zamanında Fatih hocamdan aldıgım bi dialog penceresinin kodlarını paylaşayım.

Kod: (Unknown Language)

procedure Talbum.FormCreate(Sender: TObject);
var
  AMsgDialog: TForm;
  ACheckBox: TCheckBox;
begin
AMsgDialog := CreateMessageDialog('Mesajını ekle', mtWarning, [mbyes]);
  ACheckBox := TCheckBox.Create(AMsgDialog);
  with AMsgDialog do
  try
   Caption := 'Uyarı' ;
   Height := 150;
   with ACheckBox do
   begin
    Parent := AMsgDialog;
    Top := 103;
    Left := 9;
    Width:=150;
    ACheckBox.Caption := 'Bunu Bir Daha Gösterme!';
   end;
   if (ShowModal = ID_YES) then
   begin
    if ACheckBox.Checked then
      begin
      table1.edit;
      table1deneme.AsString:='a';
      zaman.Post;
      end
    else
      //CheckBox işaretli değilse yapılacaklar
   end;
  finally
   Free;
  end;
 end;
 

açılışta veri tabanından table1deneme'yi "İf" ile kontrol ettirip dialog penceresini
gösterip veya esgeçtirebilirsiniz.

Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

Gönderen Konu: kendi dialog pencerelerimizi nasıl yapabiliriz? (Okunma sayısı 1173 defa)

sheak

kendi dialog pencerelerimizi nasıl yapabiliriz?

Ferit Ceylan

Ynt: kendi dialog pencerelerimizi nasıl yapabiliriz?