messagebox در دلفی

[lajevardi106]

چگونه میتوان دکمه پیش فرض به messagebox داد
یعنی مثلا پیش فرض آنرا که Yes است به No‌ تبدیل نماییم

[dkhatibi]

به این صورت می تونی!


messagebox(0,'sdfdsf','sdfdsf',mb_yesno+MB_DEFBUTT ON2);

[Hamid_PaK]

چطوری نام YES رو به بله تبدیل کنیم ...
البته MessageBox رو می خواهم با MessageDlg امکان پذیر هست و کد رو دارم .

با تشکر ، یا حق ...

[dkhatibi]

نمی دونم چه لزومی داره که از MessageBox استفاده کنی !
اگه می خوای دیالوگ رو بمونه و از کدی مشابه اون کدی که من دیدم برای تغییر کپشن دکمه ها استفاده کردی!چون تابع CreateMessageDialog یک متغیر از نوع Tform بر می گردونه می تونی با اون مثل یک فرم رفتار کنی.یعنی خاصیت FormStyle اونو به fsStayOnTop تغییر بدی!

خطی که باستاره مشخص شده در تابع زیر ببین.


function MyMessageDialog(const Msg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; Captions: array of string): Integer;
var
aMsgDlg: TForm;
i: Integer;
dlgButton: TButton;
CaptionIndex: Integer;
begin
{ Create the Dialog }
{ Dialog erzeugen }
aMsgDlg := CreateMessageDialog(Msg, DlgType, Buttons);
aMsgDlg.FormStyle:=fsStayOnTop; //******************
captionIndex := 0;
{ Loop through Objects in Dialog }
{ Über alle Objekte auf dem Dialog iterieren}
for i := 0 to aMsgDlg.ComponentCount - 1 do
begin
{ If the object is of type TButton, then }
{ Wenn es ein Button ist, dann...}
if (aMsgDlg.Components[i] is TButton) then
begin
dlgButton := TButton(aMsgDlg.Components[i]);
if CaptionIndex > High(Captions) then Break;
{ Give a new caption from our Captions array}
{ Schreibe Beschriftung entsprechend Captions array}
dlgButton.Caption := Captions[CaptionIndex];
Inc(CaptionIndex);
end;
end;
Result := aMsgDlg.ShowModal;
end;

[Hamid_PaK]

لزومی در استفاده از MessageBox که از توابع API هست نداریم ، می خواستم بدونم این کار امکان پذیر هست یا نه ...

با تشکر ، یا حق ...

[dkhatibi]

لزومی در استفاده از MessageBox که از توابع API هست نداریم ، می خواستم بدونم این کار امکان پذیر هست یا نه ...

با تشکر ، یا حق ...
شما می خواستید بدونید یا آقای ajevardi106