+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تغيير ايقونة علبة الحوار (/showthread.php?tid=1747)
تغيير ايقونة علبة الحوار - King SofT - 04-03-2010
بسم الله الرحمان الرحيم
السلام عليكم اخوتي
هل من الممكن ان اغيير الايقونة بالصورة بالايقونة التي احب
![[صورة: alfaris_net_1267729966.JPG]](http://alfaris.net/up/52/alfaris_net_1267729966.JPG)
تغيير ايقونة علبة الحوار - paix144 - 04-03-2010
و عليكم السلام و رحمة الله
نعم أخي يمكن تغيير ذلك
شوف هذا المثال
كود :
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
انا اقصد ايقونة من حاسوبي ليست في الدلفي
تغيير ايقونة علبة الحوار - kachwahed - 04-03-2010
وعليكم السلام ورحمة الله
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;
استخدم أي محرر ريسورس لإضافة الإيقونة
ألق نظرة على مواضيع التعامل مع الريسورس في المنتدى للمزيد
بالتوفيق.