Da der Parameter
Sender, der ja vom Typ
TObject ist, kein Property Canvas besitzt,
schaut der Compiler im lokalen Kontext ob ein Bezeichner namens "Canvas" existiert.
Und in der Tat gibt es einen Canvas aber eben in der Klasse TfrmMain (geerbt von TForm).
Um das zu erreichen was du möchtest müsstest du schon schreiben:
Delphi-Quellcode:
Procedure TfrmMain.Zeige(Sender: TObject);
begin
with Sender as TForm do
begin
Canvas.TextOut(X, Y, 'Hallo');
end
end;
Das With-Statement darf nur mit grosser Versicht eingesetzt werden, weil wie du gerade gesehen hast, etwas anderes passieren kann, als der Programmierer ursprünglich beabsichtigt hat.
Sicher wäre z.B. folgende Variante:
Delphi-Quellcode:
Procedure TfrmMain.Zeige(Sender: TObject);
var
c : TCanvas;
begin
f := (Sender as TForm).Canvas;
c.TextOut(X, Y, 'Hallo');
end;
Wenn man jetzt etwas weiterdenkt, dann könnte man auch gleich den Canvas übergeben:
Delphi-Quellcode:
Procedure TfrmMain.Zeige(ACanvas: TTCanvas);
begin
ACanvas.TextOut(X, Y, 'Hallo');
end;
Die Frage wäre auch noch woher kommt X und Y?