Search options

function Max(const A, B: Integer): Integer;
begin
  case A > B of
    true: Result := A;
    false: Result := B;
  end;
end;

function Min(const A, B: Integer): Integer;
begin
  case A < B of
    true: Result := A;
    false: Result := B;
  end;
end;

procedure Form1_OnResize (Sender: TObject);
begin
    if Form2 <> nil then
    begin
        Form2.Left:= Form1.ClientWidth div 2 - Form2.Width div 2;
        Form2.Top:= Form1.ClientHeight div 2 - Form2.Height div 2;
    end;
end;

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
    Form2.Show;
    Form2.Parent:= Form1;
    Form2.Align:= alCustom;
end;

procedure Form2_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
    Form1.WindowState := wsMinimized;
end;

procedure Form1_OnClose (Sender: TObject; Action: string);
begin
    Form2:= nil;
end;

procedure Form2_OnClose (Sender: TObject; Action: string);
begin
    Form1.Close;
end;

begin
end.

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
  i: integer;
begin
  for i := 0 to Form1.ComponentCount - 1 do
  begin
    if (Form1.Components[i] is TdbRichEdit) then
    begin
      ShowMessage(Form1.Components[i].Name);
    end;
  end;
end;

procedure Form1_TableGrid1_OnCellDoubleClick (Sender: TObject; ACol, ARow: Integer);
begin
   if Form1.Edit1.Text <> '' then Form1.Edit1.Text := Form1.Edit1.Text + ', ';      
   Form1.Edit1.Text := Form1.Edit1.Text + Form1.TableGrid1.Cells[ACol,ARow];
end;

Процедура срабатывает при двойном клике по ячейке таблицы.
Начало
    Если текстовое поле не пустое, то в него добавляется запятая.
    В текстовое поле добавляется содержимое ячейки по которой кликнули.
Завершение

procedure GLForm_OnShow (Sender: TObject; Action: string);
var
Canvas:TCanvas;
ww, hh: Integer;
begin
  SendMessage(GLForm.Handle,274,61728,0);
  Application.ProcessMessages;

  GLForm.Canvas.Font.Size:=18;
  GLForm.Canvas.Font.Color:=clRed;
  GLForm.Canvas.Brush.Style:=bsClear;

  ww:=GLForm.Canvas.TextWidth('Hello World');
  hh:=GLForm.Canvas.TextHeight('Hello World');

  GLForm.Canvas.Rectangle(80, 60, 80+ww, 60+hh);
  GLForm.Canvas.TextOut(80,60,'Hello World');
end;

procedure Form2_bt1_OnClick (Sender: string; Action: string);
begin
    if CurrentCtrl is TdbEdit then
        TdbEdit(CurrentCtrl).Text := TdbEdit(CurrentCtrl).Text + TdbButton(Form2.FindComponent(Sender)).Caption;

    if CurrentCtrl is TdbMemo then
        TdbMemo(CurrentCtrl).Text := TdbMemo(CurrentCtrl).Text + TdbButton(Form2.FindComponent(Sender)).Caption;
end;

procedure Form2_bt1_OnClick (Sender: string; Action: string);
begin
    if CurrentCtrl is TdbEdit then
        TdbEdit(CurrentCtrl).Text := TdbEdit(CurrentCtrl).Text + TdbButton(Sender).Caption;

    if CurrentCtrl is TdbMemo then
        TdbMemo(CurrentCtrl).Text := TdbMemo(CurrentCtrl).Text + TdbButton(Sender).Caption;
end;

ShowMessage('Информаци'#1103);