با سلامو می شه انواع message ها با حالت های مختلف yes ,no,cancel و موارد دیگر رو بگید چطور می تونیم بنویسیم ؟ ممنون
در پیغام های مانند messagebox آیا می شه کاری کرد که دکمه های yesو no رو بتونیم به کلمات فارسی بلی و خیر تبدیل کرد ؟
Printable View
با سلامو می شه انواع message ها با حالت های مختلف yes ,no,cancel و موارد دیگر رو بگید چطور می تونیم بنویسیم ؟ ممنون
در پیغام های مانند messagebox آیا می شه کاری کرد که دکمه های yesو no رو بتونیم به کلمات فارسی بلی و خیر تبدیل کرد ؟
خودتون بسازید و به صورت زیر فرم را صدا کنید
form17.ShowModal;
if form17.ModalResult=mryes then
و داخل فرم مربوطه
داخل properties دکمتون از moduleresult استفاده کنید تا مقدار را براتون برگردونه در صورت خواستن بگین براتون یک sample بفرستم
شما میتوانید فایل Consts.pas را از شاخه Borland\Delphi7\Source\Vcl انتخاب کرده و ÷س از باز کردن فایل می توانید پیامهای فارسی خود را به جای موارد درخواستی قرار دهید. پس از ذخیره فایل، هر زمان که لازم بود در پروژه ای از این پیامها استفاده نمائید کافی است این فایل را به پروژه خود add نمائیدنقل قول:
با سلام [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
من خودم در فرمم از یک فرم استفاده کرده ام و برای دکمه های yes,noاز button استفاده کرده ام می تونید اونجه که شما گفتید رو بذارید ممنون می شم
سلام [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] عزیز
منظورتون از addکردن به فرم چیه ؟
شما بعد از این که فایل مزبور رو (Consts.pas) تغییر دادید کافیست که روی گزینه ای که یک علامت + داره کلیک کنید و این فایل رو به برنامه اضافه کنید !
فکر کنم اول گزینه نامی شبیه ADDUnit یا یه چیزی شبیه این داشته باشه ولی اگر از دلفی 7 استفاده می کنید در اطراف دکمه RUN ( همان دکمه سبز ) یک آیکن دیکه با علامت + کوچیک کنارش باشه که باید روش کلیک کنی ...
چون به دلفی دسترسی ندارم جواب درستری نمی تونم بگم شمرنده !
ببخشید اگر زیاد خوب نیست
کد:www.isproblem.com/1.rar
نقل قول:
در پروژه خود shift+f11 را میزنید (Add to Project) و فایل pas تغییر داده شده خود را اضافه می نمائید (const.pas) و بعد برنامه خود را کامپایل نمائید . اگر از پیغامهای استاندار دلفی مثل showmessage , ... استفاده کرده باشید بعد از کامپایل برنامه مشاهده میکنید که کلیدهای خود (button) فارسی شده است.
میشه یبار دیگه بزاریننقل قول:
سلام بچه ها، این باید بدردتون بخوره....
کد:function MyMessageDialog(const Msg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; Captions: array of string): Integer;
var
aMsgDlg: TForm;
i: Integer;
dlgButton: TButton;
CaptionIndex: Integer;
begin
aMsgDlg := CreateMessageDialog(Msg, DlgType, Buttons);
captionIndex := 0;
for i := 0 to aMsgDlg.ComponentCount - 1 do
begin
if (aMsgDlg.Components[i] is TButton) then
begin
dlgButton := TButton(aMsgDlg.Components[i]);
if CaptionIndex > High(Captions) then Break;
dlgButton.Caption := Captions[CaptionIndex];
Inc(CaptionIndex);
end;
end;
Result := aMsgDlg.ShowModal;
end;
================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
if MyMessageDialog('How much...?', mtConfirmation, mbOKCancel,
['1', '2']) = mrOk then
ShowMessage('"1" clicked')
else
ShowMessage('"2" clicked');
end;
نمی شه یکم توضیح بدی
نمی دونم کجاشو متوجه نشدی ولی....
قسمت اول یه تابع هستش که برای برنامت تعریف می کنی. کار این تابع عوض کردن Caption دکمه های یک MessageBox معمولی هستش.
قسمت دوم یه مثال از طریق استفاده تابع نوشته شده هستش که تو یک دکمه نوشته می شه.
همه این ها در کل کار خاصی انجام نمی دن. طریق استفادش هم هیچ فرقی با تابع MessageDLG خود دلفی نداره. عین همون ازش استفاده کن. این دستور ها رو با یک کپی ساده تو دلفی تست کن. فکر کنم خودت اونموقع متوجه همه چیز می شی.