root/trunk/Forms/frm_main.pas
Download diff| 434 | 436 | ||
|---|---|---|---|
5355 | end; | 5355 | end; |
5356 | 5356 | ||
5357 | procedure TfrmMain.edFFullNameButtonClick(Sender: TObject); | 5357 | procedure TfrmMain.edFFullNameButtonClick(Sender: TObject); |
5358 | var | ||
5359 | frmEditor: TfrmEditor; | ||
5358 | begin | 5360 | begin |
5359 | frmEditor.Text := (Sender as TrzButtonEdit).Text; | 5361 | frmEditor := TfrmEditor.Create(Self); |
5360 | frmEditor.ShowModal; | 5362 | try |
5361 | (Sender as TrzButtonEdit).Text := frmEditor.Text; | 5363 | frmEditor.Text := (Sender as TrzButtonEdit).Text; |
5364 | if frmEditor.ShowModal = mrOk then | ||
5365 | (Sender as TrzButtonEdit).Text := frmEditor.Text; | ||
5366 | finally | ||
5367 | frmEditor.Free; | ||
5368 | end; | ||
5362 | end; | 5369 | end; |
5363 | 5370 | ||
5364 | procedure TfrmMain.edFFullNameKeyDown(Sender: TObject; var Key: Word; | 5371 | procedure TfrmMain.edFFullNameKeyDown(Sender: TObject; var Key: Word; |