|
|
Redimensionate control at runtime by user
Procedure
TForm1.Panel1MouseMove ( Sender : TObject ; Shift : TShiftState ; X ,
Y : Integer ) ;
Begin
If Shift = [ ssLeft ] + [ ssShift
] Then
Begin
With Sender As
TWinControl Do
Begin
Width := X ;
Height := Y ;
End ;
End ;
End ;
