Du verwirrst mich...
Wenn du rechts klicks passiert nichts, aber der Button wird trotzdem groß? Was denn nun?
Irgendwie solltest du mal einen Schnipsel Code posten, damit man sich mal ein Bild davon machen kann.
Ein Lösungsansatz wäre die MouseUp-Funktion manuell aufzurufen (mitt allen parametern, die du ja hast:
Delphi-Quellcode:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1MouseUp(Sender, Button, Shift, X, Y);
end;
Sauberer wäre es je Eine Funktion zu erstellen, die du dann im Event nach bedarf aufrufst.
Aber vielleicht solltest du zuerst mal deine Struktur Überdenken.
Kommt mir doch etwas seltsam vor...
regards
Toni
Der frühe Vogel fängt den Wurm, richtig.
Aber wird nicht auch der frühe Wurm vom Vogel gefressen?