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

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