تغيير ايقونة علبة الحوار

[King SofT]

بسم الله الرحمان الرحيم

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

هل من الممكن ان اغيير الايقونة بالصورة بالايقونة التي احب

[paix144]

و عليكم السلام و رحمة الله
نعم أخي يمكن تغيير ذلك
شوف هذا المثال

كود :

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]

انا اقصد ايقونة من حاسوبي ليست في الدلفي

[kachwahed]

وعليكم السلام ورحمة الله

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 هو تعريف الإيقونة في الريسورس
استخدم أي محرر ريسورس لإضافة الإيقونة
ألق نظرة على مواضيع التعامل مع الريسورس في المنتدى للمزيد
بالتوفيق.