Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Вниз

Значок программы в диалоге. 


inko   (2002-04-09 15:46) [0]

Как можно в диалоге "О программе" вывести значок своего приложения, а не стандартные - mtInformation, mtWarning и т.д.?

procedure TForm1.Button6Click(Sender: TObject);
begin
AMsgDialog := CreateMessageDialog("Моя программа версии 1.0", mtInformation, [mbOk]);
with AMsgDialog do
try
Caption := "Загаловок программі" ;
Case ShowModal of
ID_OK:
end;
finally
Free;
end;
end;



Reindeer Moss Eater   (2002-04-09 16:47) [1]

mtCustom



inko   (2002-04-09 18:03) [2]

> Reindeer Moss Eater

mtCustom не хочет работать !



Набережных С.   (2002-04-09 22:09) [3]

Например, так:

Img:TImage;

....
Caption := "Загаловок программі" ;

TComponent(Img):=FindComponent("Image");
if Img <> nil then Img.Picture.Icon.LoadFromFile...

Case ShowModal of
.....




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.03 c
1-69855           gray1                 2002-04-09 09:41  2002.04.22  
pageUP pageDOWN


1-69779           Kurt                  2002-04-08 10:14  2002.04.22  
RichEdit или Memo! Как загружать фалы больших размеров только для


1-69891           kserg@ukr.net         2002-04-09 13:12  2002.04.22  
Как преобразовать множество к целому типу и обратно?


14-70021          KvORubin              2002-03-17 18:24  2002.04.22  
RichEdit - как в нём отобразить непечатаемые символы (как в M.Office)


6-69962           Sender                2002-02-03 21:22  2002.04.22  
Передача данных по сети