Такой вот вопрос:

← →
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]

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