استفاده از تصویر در showmessage

[پیمان_ایرنا]

سلام دوستان
چطور می تونم در showmessage از تصویر استفاده کنم؟(گشتم نبود)

[vcldeveloper]

منظورتون از تصویر چی هست؟ اگه می خواید آیکن نمایش داده شده در پیغام را تغییر بدید، می تونید یا از MessageDlg استفاده کنید (تغییر نوع پیغام موجب تغییر شکل آیکن میشه)، یا با استفاده از CreateMessageDialog خودتون یک پیغام طراحی کنید و آیکنش را هم به دلخواه ایجاد کنید.

[soroush_vs]

میتونید یه فرم جدید و کوچک ایجاد کنید و بطور دلخواه اون رو تغییر بدید
با استفاده از Form1.showmodal اون رو فراخوانی کنید

[Ali-Far]

سلام .
آیا میتونیم Title پیغام را هم عوض کنیم ؟(در حالت عادی نام فایل پروژه را می نویسد)

[mzjahromi]

سلام .
آیا میتونیم Title پیغام را هم عوض کنیم ؟(در حالت عادی نام فایل پروژه را می نویسد)

بله با Messagebox میشه

[zman123456]

سلام
به نظر من بهترین روش برای پروژه های نرم افزاری اینه که یک فرم error برای خودمون بسازیم.
نظر شما چیه آقای کشاورز؟

[mehdi_mohamadi]

استفاده از فرم خطا باعث افزایش حجم برنامه میشه.

[arshia_]

آقای کشاورز

لطفا اگر ممکنه یه مثال کاربردی از نحوه استفاده CreateMessageDialog بیان بفرمایید

[zman123456]

استفاده از فرم خطا باعث افزایش حجم برنامه میشه.

سلام مهدی جان
شاید ولی به چه قیمتی.به قیمت اینکه تمام error ها هندل بشه و یک فرم برای خودت داشته باشی.فکر نکنم زیاد تاثیری بذاره.بستگی به کدت داره.

[ali_divsalar]

استفاده از فرم خطا باعث افزایش حجم برنامه میشه.

قرار نیست به ازای هر error فرمی بسازیم.یه فرم می سازیم توش یه label و دو کمه . بقیه ش حله.کافیه به ازای هر پیغام و انتخابهاتون عنوان،محتوای Label و دکمه ها رو از قبل تعیین کنید و فرم رو صدا بزنید.

[vcldeveloper]

لطفا اگر ممکنه یه مثال کاربردی از نحوه استفاده CreateMessageDialog بیان بفرمایید

var

  MsgBox   : TForm;

begin

  MsgBox := CreateMessageDialog(Text,MsgType,Buttons);

  try

    //Change TEXT Properties

    with (MsgBox.Controls[1] as Tlabel) do

    begin

      Font.Name := 'Arial';

      Font.Style := Font.Style + [fsBOLD];

      Font.Size := 12;

      WordWrap := False;

    end;

  //Change IMAGE Properties

   with (MsgBox.Controls[0] as TImage) do

   begin

     if MsgIcon <> nil then

       Picture.Assign(MsgIcon);

     Center := True;

     Stretch := True;

   end;

    //Change Messagebox Properties

    with MsgBox do

    begin

      BiDiMode := bdRightToLeft;

      Font.Name := 'Arial';

      Font.Size := 10;

      Caption := 'Test';

    end;

    MsgBox.ShowModal;

  finally

    MsgBox.Free;

  end;

end;

به نظر من بهترین روش برای پروژه های نرم افزاری اینه که یک فرم error برای خودمون بسازیم.

من هم ساخت یک فرم اختصاصی برای Error را ترجیح میدم.