Button bei größen Änderung an gleicher Stelle

[hathor]

SCALEBY

http://www.delphipraxis.net/78746-fo...-anpassen.html

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  Form1.ScaleBy(90,100);  //-10%
  Label1.Caption:=IntToStr(self.Width);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Form1.ScaleBy(110,100);  //+10%
  Label1.Caption:=IntToStr(self.Width);
end;