تمام پیغام ها در دلفی

[DelphiFriend]

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

showmessage('سلام');

[hojjatcroos]

از دستور زیر می تونی استفاده کنی پارامتر دومی متغییر است به Mtwarning یا انواع دیگر


MessageDlg('Payam',mtError,[mbYes],0)

[DelphiFriend]

خوب ها لا چطوری میشه برای هر کلید دستوری داد و چطور میشه متن دکمه ها رو عوض کرد؟

[Hsimple11]

در خود Help دلفی جستجو کنید. MessageDLG, MessageBox,ShowMessage, .... و Result آنها را برای دریافت پاسخ از کاربر.

[DelphiFriend]

از دستور زیر می تونی استفاده کنی پارامتر دومی متغییر است به Mtwarning یا انواع دیگر

MessageDlg('Payam',mtError,[mbYes],0)


من در Help دلفی جستجو کردم ولی حتی مثال های خود دلفی هم کار نکرد میشه بیشتر توضیح بدبد.

[hojjatcroos]

با استفاده از دستور Find Componnent می تونی این کار رو انجام بدهید- به شرطی که پیام خودتون رو از کلاس فرم تعریف کنید قبلا در این باره توی سایت بحث شده موفق باشید.

[hojjatcroos]

یک نمونه برای تغییر پیام برات می گذارم

procedure TForm1.Button1Click(Sender: TObject);
var
a:TForm;
begin
a:=CreateMessageDialog('Matne Farsi',mtWarning,[mbYes]);
a.Caption:='Iran';
a.BiDiMode:=bdRightToLeft;
TButton(a.FindComponent('Yes') ).Caption:='Persian';
a.ShowModal;
end;
end.

برای onclick هم همینطور عمل کن

TButton(a.FindComponent('Yes') ).OnClick

[DelphiFriend]

سلام دوست خوبم hojjatcroos ممنون از لطفتون.من خودو بعد از کمک گرفتن از خود دلفی با کد زیر آشنا شدم.

if MessageDlg('آیا شما مطمئن هستید میخواهید این رکورد را حذف نمایید',mtCustom , [mbYes, mbNo], 0) = mrYes then
begin
MessageDlg('رکورد با موفقیت حذف شد', mtCustom ,[mbOk], 0,);
AdoTable1.Delete;
end;
end;

ولی میخواهم مثل پیغام شما کپشن پیغام و همچنین BiDiMode تغییر بدم. میشه راهنمایی کنید.

[hojjatcroos]

شما باید مثل کد من پیغام خودتون رو از نوع فرم تعریف کنید تا بتونید همه این کار رو انجام بدهید این ها با هم هیچ فرقی ندارند در ضمن شما به جای متون انگلیسی من متون فارسی رو بگذارید

[DelphiFriend]

سلام
ممنونم تا حالا اینطوری بهش نگاه نکردم. امتحان میکنم.

[DelphiFriend]

سلام دوست من
من تو تعریف کردن اون پیغام به TForm مشکل دارم و خطای کامپایلری میگیره.