| Kaf Dağı | 27 Mart 2015 15:19 |
Dialog penceresine checkBox yerleştirmek
Kod:
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;
| 