Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.29;
Скачать: CL | DM;

Вниз

А можно ли разместить кампонент в диалоге?   Найти похожие ветки 

 
Alexfdfdfd   (2002-05-22 02:33) [0]

Интересно вот когда появляется диалог, допустим вызаваемый
ShowMessage(); , то чем это не окно. Так идея заключаеться в том можно получить хендел на канву, или разместить там какой -нибудь компонент. Или даже унаследовать этот диалог, и написать свой на основе этого(хотя здесь может проще зделать форму).
Если это возможно, то прошу побольше коментариев, и кода.


 
Serhy ©   (2002-05-22 02:53) [1]

Максимум из возможного - "РАЗРЕШЕНО ВСЕ, ЧТО НЕ ЗАПРЕЩЕНО"!
Остальное требует пояснений, а то в вопросе слишком многое непонятно.


 
Сатир   (2002-05-22 14:03) [2]

2Alexfdfdfd
посмотри исходники реализации этого класса, ну и если тебе чего-то хочется добавить, породи от него своего потомка и лепи из него, чё пожелаешь.
Удачи.


 
easy   (2002-05-23 14:32) [3]

procedure TForm1.Button1Click(Sender: TObject);
var AMsgDialog: TForm; ACheckBox: TCheckBox;
begin AMsgDialog := CreateMessageDialog ("This is a test message.", mtWarning, [mbYes, mbNo]);
ACheckBox := TCheckBox.Create(AMsgDialog);
with AMsgDialog do
try Caption := "Dialog Title" ;
Height := 169;
with ACheckBox do
begin Parent := AMsgDialog;
Caption := "Dont show me again.";
Top := 121;
Left := 8;
end;
if (ShowModal = ID_YES) then
begin
if ACheckBox.Checked then
begin //... do if checked
end; //... do if NOT checked
end;
finally ACheckBox.Free;
Free;
end;
end;




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

Текущий архив: 2002.07.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
1-95298
firsor
2002-07-17 09:51
2002.07.29
Как создать непрямоугольную форму


3-95193
_dron_
2002-07-05 19:40
2002.07.29
Подскажите, плз, побыстрее две базы в Interbase (локальные)


1-95397
nitro313
2002-07-16 06:09
2002.07.29
Мастера! Подскажите, как сделать...


4-95619
Polubin
2002-05-23 12:29
2002.07.29
Статус принтера


1-95325
Real
2002-07-16 22:55
2002.07.29
Как обратиться к объекту не имеющего имя?