استفاده از تصویر در 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 را ترجیح میدم.