Форум: "Система";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
ВнизAPI, System resources and ******* (inside) Найти похожие ветки
← →
Serghei (2002-01-18 14:51) [2]Может это поможет
{
For example, we have some dialog for confirmation
and the user can check a checkbox ("Don"t show this
message again") - program can store this in a global
variable and the next time this dialog will not show.
The idea of realization in the next:
1. we must create a dialog using
CreateMessageDialog
2. this function will return a form object with
dialog
3. in this object we can add a checkbox
4. show diallog using ShowModal
5. check a result and process a state of our
checkbox
6. destroy a created checkbox and dialog object
}
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 := "Don""t 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.04.15;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c