BorlandTalk.com

Christopher · Guest

hi
is there a way to resize a button during run-time, the same way as during
design time? Please advise

thanks
chris

Nicholas Sherlock · Guest

Christopher wrote:

Peter Below (TeamB) · Guest

In article <4305467c$1 (AT) newsgroups (DOT) borland.com>, Christopher wrote:

Heinrich Wolf · Guest

Hi,

here is an example:
Keep the left Mouse Button for clicking the Button on the screen.
Use the right Mouse Button for stretching the Button on the screen.

Regards
Heiner

unit Main;

interface

uses
Windows,
Messages,
SysUtils,
Classes,
Graphics,
Controls,
Forms,
Dialogs,
StdCtrls;

type
TMainForm = class(TForm)
MyButton : TButton;
procedure MyButtonMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure MyButtonMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure MyButtonMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormCreate(Sender: TObject);
private
StartX,
StartY,
StartHeight,
StartWidth : Integer;
end;

var
MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.MyButtonMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
begin
StartX := X;
StartY := y;
StartHeight := MyButton.Height;
StartWidth := MyButton.Width;
end;
end;

procedure TMainForm.MyButtonMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if StartX >= 0 then
begin
MyButton.Height := StartHeight + Y - StartY;
MyButton.Width := StartWidth + X - StartX;
end;
end;

procedure TMainForm.MyButtonMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
StartX := -1;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
StartX := -1;
end;

end.