Bild direkt auf Form ausschneiden

[taktaky]

Fine
Mit dem vorherigen Demo habe ich genauso gemacht um die Koordinaten vom Rectangle zu zeigen und hat geklappt
mit diesem Demo klappt nicht :

Delphi-Quellcode:

...
  private
    fSelRect:TRect; //declared
...
procedure TForm1.Timer2Timer(Sender: TObject);
begin
      Edit1.Text:= intToStr(fselRect.left); // undeclared fselRect !
      Edit2.Text:= intToStr(FselRect.Top); // ...
      Edit3.Text:= intToStr(FselRect.right);
      Edit4.Text:= intToStr(FselRect.bottom);

Showmessage(Edit1.Text+',' + Edit2.Text+',' +Edit3.Text+',' +Edit4.Text);
end;