![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как создать окно сообщения , чтоб был флажок
Tahion © (2002-08-17 09:55:00)как создать окно сообщения (а лучше посоветуйте компонент), чтоб в нем был флажок "больше не показывать это"? И чтоб нанные автоматом записывались в реестр или илни файл по моему желанию.
А еще нужен компонент сообщения об ошибке, чтоб была кнопочна "Подробности"
Tahion (2002-08-18 09:42:00) [1]Спасибо!!!
BAHO (2002-08-17 23:09:00) [2]
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:="больше не показывать это";
top:=121;
Left:=8;
end;
Case ShowModal
of
ID_YES: ;//...
ID_NO: ;//...
end;
If ACheckBox.Checked
then
begin
//...
end;
finally
ACheckBox.Free;
Free;
end;end;
VAleksey (2002-08-17 11:23:00) [3]Да ... а еще дайте мне программу которая умеет делать все, что мне нужно, и бесплатно, и чтоб не глючила, и чтобы мне деньги за нее заплатили, и чтобы самому ничего не делать, ни о чем не думать и ни о чем не знать.
Александр (2002-08-17 11:20:00) [4]Зачем компаненты? Создайте две новых формы, добавьте на них чекбоксы и все что нужно. А потом, чтобы заполнить эти чекбоксы и т.д. просто на главной форме сделайте на событие кнопки ли где у вас команда открытия формы if From1.c:=tip then Form2.CheckBox1.Cahked:=true; Вот и все.