Search options (Page 4 of 400)

procedure Form_01_About_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
    Form_01_About.Hide;
end;

procedure Form_01_About_Button1_OnClick (Sender: TObject);
begin
    Form_01_About.Hide;
end;

procedure Form_02_Menu_OnClose (Sender: TObject; Action: string);
begin
    Form_01_About.Close;
end;

procedure Form1_OnDropFiles (Sender: TObject; ArrayOfFiles: array of string; X, Y: Integer);
var
    i, c: integer;
    folder: string;
begin
    folder := 'e:\temp\';
    c := Length(ArrayOfFiles)-1;
    for i := 0 to c do
    begin
        CopyFile(ArrayOfFiles[i], folder+ExtractFileName(ArrayOfFiles[i]));
    end;
end;

Word.FindAndInsertPicture('{photo}',  'c:\picture.jpg');

Edit := TdbEdit.Create(Form1);
Edit.Parent := Form1;
Edit.OnClick := @EditOnClick;

// событие
procedure EditOnClick (Sender: TObject);
begin

end;

procedure frmAbonent_ButtonReport_OnClick (Sender: TObject; var Cancel: boolean);
begin
    frmAbonent.ButtonSave.dbActionType := adbNone;
end; 

procedure frmAbonent_ButtonReport_OnAfterClick (Sender: TObject);
begin
    frmAbonent.ButtonSave.dbActionType := adbSaveRecord;
end;