Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  AW: TPanel sizeable machen?

   
    by Björn Ole, 17. Jan 2011
  Sehr rudimentär, auf jeden Fall noch ausbaufähig:
  procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var
  panel: TPanel;
  point: TPoint;
  begin
  panel := Sender as TPanel;
  point := panel.ScreenToClient(Mouse.CursorPos);
  panel.Tag := Integer((point.X > panel.Width - 10) or (point.Y > panel.Height - 10));
  end;