Скачать: CL | DM;

Такой вот вопрос:   Найти похожие ветки 

← →
andrey_pst ©   (2002-07-25 07:53) [0]

Такой вот вопрос:
Можно ли в стандартной функции MessageDlg(...) использовать свою иконку вместо стандартных ?

---

← →
Eugene Lachinov ©   (2002-07-25 08:58) [1]

procedure TForm1.Button3Click(Sender: TObject);
var
Image : TImage;
begin
with CreateMessageDialog("Мое сообщение", mtInformation, [mbOK]) do try
Position := poScreenCenter;
Image := FindComponent("Image") as TImage;
if Image <> nil then Image.Picture.LoadFromFile("D:\XP_TrashFull.ico");
ShowModal
finally
Free
end
end;

---

← →
Игорь Шевченко ©   (2002-07-25 08:59) [2]

Стандартно - нельзя.
Если только написать свой по образу и подобию.

С уважением,

---

← →
Игорь Шевченко ©   (2002-07-25 09:00) [3]

Eugene Lachinov © (25.07.02 08:58)

Тоже способ :-)
И мне наука будет...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c