قرار دادن یک combobox در یک message ؟ [بایگانی]

V60

جمعه 13 بهمن 1385, 15:08 عصر

سلام
چطور می تونم در یک message از خود دلفی یک combobox قرار بدهم ؟

Mahmood_M

جمعه 13 بهمن 1385, 15:33 عصر

سلام
بهترین کار اینه که یه فرم مجزا برای پیغامت درست کنی و اون رو به جای پیغام نشون بدی ...
موفق باشی ...

Mohammadi_F

شنبه 14 بهمن 1385, 03:04 صبح

یک نمونه با چک بوکس رو از سایت About برات می زارم خودت به کمبو بوکس تغییرش بده .

procedure TForm1.Button1Click(Sender: TObject) ;
var
AMsgDialog: TForm;
ACheckBox: TCheckBox;
begin
AMsgDialog := CreateMessageDialog
('This is a test message.', mtWarning,
[mbYes, mbNo]) ;
ACheckBox := TCheckBox.Create(AMsgDialog) ;
with AMsgDialog do
try
Caption := 'Dialog Title' ;
Height := 169;

with ACheckBox do begin
Parent := AMsgDialog;
Caption := 'Don''t show me again.';
Top := 121;
Left := 8;
end;

if (ShowModal = ID_YES) then begin
if ACheckBox.Checked then begin
....

این هم آدرس سایت مرجع این کد:
http://delphi.about.com/cs/adptips2001/a/bltip0201_5.htm
خدا پدر و مادر این Zarko Gajic رو بیامرزه.
موفق باشی.