delphi4arab منتديات دلفي للعرب

delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > سؤال و جواب حول دلفي > تغيير ايقونة علبة الحوار
نسخة كاملة : تغيير ايقونة علبة الحوار
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

King SofT

04-03-2010, 05:44 PM
بسم الله الرحمان الرحيم

السلام عليكم اخوتي

هل من الممكن ان اغيير الايقونة بالصورة بالايقونة التي احب
[صورة: alfaris_net_1267729966.JPG]

paix144

04-03-2010, 05:59 PM
و عليكم السلام و رحمة الله
نعم أخي يمكن تغيير ذلك
شوف هذا المثال
كود :
if Messagedlg('Etes vous sur de vouloir Quitter le programme',[color=Red] mtConfirmation [/color],[mbyes,mbno],0)=mrno then canclose:= false

فقط غير mtConfirmation بأحد هذه الخصائص
كود :
mtError mtInformation mtWarning mtConfirmation mtCustom
بالتوفيق إن شاء الله

King SofT

04-03-2010, 08:15 PM
انا اقصد ايقونة من حاسوبي ليست في الدلفي

kachwahed

04-03-2010, 10:06 PM
وعليكم السلام ورحمة الله
PHP كود :
function MsgBoxIcon(hWin: HWND; Caption, Text: String; IDIcon: DWORD): BOOL;
var
  MsgInfo: TMsgBoxParams;
begin
 with MsgInfo do begin
  lpfnMsgBoxCallback := nil;
  cbSize := SizeOf(TMsgBoxParams);
  hwndOwner := hWin;
  hInstance := GetWindowLong(hWin, GWL_HINSTANCE);
  lpszText := @Text[1];
  lpszCaption := @Caption[1];
  dwStyle := MB_USERICON or MB_TOPMOST or MB_OK;
  lpszIcon := MAKEINTRESOURCE(IDICON);
  dwLanguageId := GetSystemDefaultLangID;
 end;
 Result := MessageBoxIndirect(MsgInfo);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MsgBoxIcon(Handle, 'Hello Delphi4arab', 'MessageBox with Custom Icon by Kachwahed',100);
end; 
IDIcon هو تعريف الإيقونة في الريسورس
استخدم أي محرر ريسورس لإضافة الإيقونة
ألق نظرة على مواضيع التعامل مع الريسورس في المنتدى للمزيد Smile
بالتوفيق.
delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > سؤال و جواب حول دلفي > تغيير ايقونة علبة الحوار