Gönderen Konu: Dialog penceresine checkBox yerleştirmek (Okunma sayısı 1944 defa)

Fatih · « : 14 Mayıs 2007 08:37:25 »

procedure TForm1.Button1Click(Sender: TObject) ;
var
  AMsgDialog: TForm;
  ACheckBox: TCheckBox;
begin
//Dialog Penceresini oluştur
  AMsgDialog := CreateMessageDialog('This is a test message.', mtWarning, [mbYes, mbNo]) ;
//CheckBox yaada başka bir pencere oluştur
  ACheckBox := TCheckBox.Create(AMsgDialog) ;
  with AMsgDialog do
  try
   Caption := 'Diyalog başlığı' ;
   Height := 169;

   with ACheckBox do
   begin
    Parent := AMsgDialog;
    Caption := 'Bir daha sorma';
    Top := 121;
    Left := 8;
   end;

   if (ShowModal = ID_YES) then
   begin
    if ACheckBox.Checked then
      //CheckBox işaretliyse yapılacaklar
    else
      //CheckBox işaretli değilse yapılacaklar

   end;
  finally
   Free;
  end;
end;

Not: TControl türevi herhangi bir nesne eklenebilir

Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

Gönderen Konu: Dialog penceresine checkBox yerleştirmek (Okunma sayısı 1944 defa)

Fatih

Dialog penceresine checkBox yerleştirmek