Dann musst Du diesen Status irgendwie hinterlegen und dann im Paint-Event auswerten und entsprechend reagieren.
Tschulligung, das ist so, als würde ich mit meinem Goldfisch reden (bitte nicht böse sein - Programmierer können wohl nicht anders kommunizieren).
Ich suche sowas:
procedure machwas(zahl: integer);
begin
zahl := zahl+5;
end;
procedure aufruf;
var einezahl: integer;
begin
einezahl := 5;
machwas(einezahl);
end;
Nur eben ausgelöst mit Button1Click. <machwas(einezahl);> müsste nur an
procedure Panel1Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
angepasst werden. Aber wie?
const ARect: TRectF);