Hallo, ich möchte folgendes realisieren:
Ich erzeuge ein Image und möchte dieses entweder durch
darauf klicken oder durch
Fokuswechsel wieder freigeben.
Mein bisheriger Quellcode:
Delphi-Quellcode:
var myimage:TImage;
...
procedure TForm1.myclick(Sender: TObject);
begin
myimage.Free;
myimage.Destroy;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
myimage:=Timage.create(nil);
With myimage Do
Begin
parent := Form1;
autosize:=true;
OnClick:=myclick;
myimage.Picture.LoadFromFile('C:\bild.jpg');
End;
end;
Sobald ich nun aber auf das erzeugte Bild klicke und meine Procedure "myclick" aufgerufen wird, erhalte ich den Fehler "Abstract Error". Was mache ich falsch? Wenn ich nämlich einen zweiten Button einfüge, der das gleiche tut funktioniert dies ohne Probleme. So möchte ich es aber eben
nicht haben:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
myimage.Free;
myimage.Destroy;
end;
Und zur anderen Sache: Gibt es dann noch eine Möglichkeit, wenn ich den Focus von meinem Bild entferne, dieses dann ebenfalls freizugeben? Ein "OnFocusChange" o.ä. finde ich nicht...
Vielen Dank schon einmal,
Thorsten