Пишем правильные диалоги

Пишем правильные диалоги

Источник - Королевство Делфи http://www.delphikingdom.com

Очень часто возникает необходимость вызвать модальное окно с полем ввода, значение которого нужно использовать в главной форме как вы обычно это делаете?
Раньше я делал так:

begin somedialog:=Tsomedialog.Create; if somedialog.ShowModal = MrOk then begin lable1.Caption:=somedialog.edit1.text; end; end;

• Во первых, я не выгружал форму somedialog после использования из памяти.
• Во вторых, я напрямую обращался к полям класса Tsomedialog, что крайне не желательно.
• А в третьих, моя главная форма знала о существовании контрола edit1 чего тоже не должно быть.

Объясню с практической точки зрения почему я был не прав.

begin lable1.Caption:=somedialog.edit1.text; lable2.Caption:=somedialog.edit2.text; ... lable10.Caption:=somedialog.edit10.text; end;

А теперь представьте себе, что вы что-то изменили в этом диалоговом окне, например, у вас возникла необходимость дать нормальные названия всем контролам (типа edtName,edtLastname).

Сколько Вам придется всего переделывать. Кроме того вероятно что данный диалоговый модуль придется использовать в другом проекте - та же самая история.

unit dialog; interface uses ..; type TMyDlg = class(TForm) private { Private declarations } public { Public declarations } end; var MyDlg: TMyDlg; implementation uses ...; {$R *.DFM} function TMyDlg.Execute: boolean; begin if ShowModal = mrOk then begin result := true; end else begin result := false; end; end; end;

with TMyDlg.Create(nil) do try if execute then ... begin end; finally free; end;

Такая конструкция дает нам гарантию того что после того как наш модуль отработал он будет выгружен из памяти. А использование оператора with избавляет нас от необходимости написания префикса.

Кроме того функцию execute в дальнейшем можно значительно расширить. Что дает нам большую гибкость в отличии от if ShowModal = MrOk then: Теперь представим что в данном диалоге находится TEdit, значение которого нам нужно передать в главную форму. Как это cделать правильно?

type TMyDlg = class(TForm) Edit1: TEdit; private { Private declarations } public { Public declarations } function getEditValue: string; end; ... implementation {$R *.DFM} function TMyDlg.getEditValue: string; begin result=Edit1.text; end;

with TMyDlg.Create(nil) do try if execute then lable1.caption:= getEditValue; begin end; finally free; end;

Естественно что для каждого контрола придется написать свою функцию. В случае если нам необходимо произвести какие нибуть проверки вводимых значений или другие операции мы просто изменим функцию getEditValue не трогая другие модули.

Другим методом передачи параметров являются свойства (property), данный метод является продолжением предыдущего метода.
Рассмотрим другой пример:

type TMyDlg = class(TForm) Edit1: TEdit; Edit2: TEdit; procedure Edit1Change(Sender: TObject); procedure Edit2Change(Sender: TObject); private { Private declarations } FValue1: String; FValue2: String; procedure getValue1; procedure getValue2; public { Public declarations } property value1: string read FValue1; property value2: string read FValue2; end; ... implementation {$R *.DFM} procedure TMyDlg.getValue1; begin if Edit1.text <> '' then FValue1 := Edit1.text; end; procedure TMyDlg.getValue2; begin if Edit2.text <> '' then FValue2 := Edit2.text; end; procedure TMyDlg.Edit1Change(Sender: TObject); begin getValue1; end; procedure TMyDlg.Edit2Change(Sender: TObject); begin getValue2; end;

with TMyDlg.Create(nil) do try if execute then begin lable1.caption:= Value1; lable2.caption:= Value2; end; finally free; end;

Только не забудьте дать человеческие названия свойствам и описать их :)
Теперь данный модуль можно использовать где угодно, не заботясь о его внутренней структуре!