Größenänderung von TDBGrid, TPanel, TGroupBox während der La

[Christian Seehase]

Moin Eddy,

mal ein Beispiel:

Delphi-Quellcode:

procedure TfrmMAIN.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  fMBLeftDown := Button = mbLeft;
end;

procedure TfrmMAIN.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (y > (Memo1.Top+Memo1.Height-5)) and (y < (Memo1.Top+Memo1.Height+5)) then
  begin
    self.Cursor := crVSplit;
  end
  else
  begin
    self.Cursor := crDefault;
  end;
  if fMBLeftDown then
  begin
    Memo1.Height := y-Memo1.Top;
  end;
end;

procedure TfrmMAIN.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  fMBLeftDown := not (Button = mbLeft);
end;

fMBLeftDown ist hier eine globale Variable vom Typ Boolean, die mit false initialisiert wurde.