Parameterübergabe Sender: TObject wie?

[madina]

Hallo,

Ziel: diese Procedure TfrmMain.Zeige(Sender: TObject); sollte von beliebigen TFormen einen Text 'Hallo' ausgeben.

ich habe folgenden Quellkode, wo ich aus TfrmMain den Procedure frmMain.Zeige(frmMain); aufrufe => kein Problem gibt er mir den 'Hallo' String aus im TfrmMain.

Frage: wenn ich aus Tform1 frmMain.Zeige(form1); aufrufe => zeigt er den 'Hallo' String nicht aus im form1. Warum??

Delphi-Quellcode:

Procedure TfrmMain.Zeige(Sender: TObject);
begin
  with Sender do
    begin
      Canvas.TextOut(X, Y, 'Hallo');
    end
end

[Codewalker]

Zitat von madina:

Delphi-Quellcode:

Procedure TfrmMain.Zeige(Sender: TObject);
begin
  with Sender do
    begin
      Canvas.TextOut(X, Y, 'Hallo');
    end
end

Das wird nicht funktionieren, weil Sender is vom Typ TObject und das hat keinen Canvas. Wenn du es nur für Forms machen willst, kannst den Typen überprüfen und mit einem Typecast arbeiten:

Delphi-Quellcode:

Procedure TfrmMain.Zeige(Sender: TObject);
begin
 if (Sender is TForm) then
   (Sender as TForm).Canvas.TextOut(X, Y, 'Hallo');
end

Wenn allerdings etwas castest, was nicht geht (z.B. zwei Klassen, die nicht voneinander abgeleitet sind) gibt es eine Exception (daher vorher der Test mit dem "is"-Operator)

[sx2008]

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?

[Zacherl]

Das letzte Beispiel wird so nicht funktionieren, da immer die aufrufende Instanz übergeben wird, also TForm. Das kannst du ja nicht einfach nach TCanvas casten. Und ob er jetzt zuerst nach TForm castet und dann auf Canvas zugreift, oder das ganze in einem with .. do Konstrukt erledigt, kommt doch vollkommen aufs gleiche hinaus.

Soweit ich das in Erinnerung habe wirft AS doch auch eh ne Exception, fals Sender nicht in den entsprechenden Typ gecastet werden kann.

Wenn man sich beim Typ nicht sicher sein kann (sollte bei ordentlicher Programmierung nicht vorkommen), kann man den Typ vorher prüfen:
if (Sender is TForm) then

[madina]

Hallo,

leider kein Erfolg mit folgenden Vorschläge V1:

Delphi-Quellcode:

Procedure TfrmMain.Zeige(Sender: TObject);
begin
 if (Sender is TForm) then
   (Sender as TForm).Canvas.TextOut(X, Y, 'Hallo');
end

oder

Procedure TfrmMain.Zeige(Sender: TObject);
begin
  with Sender as TForm do
    begin
      Canvas.TextOut(X, Y, 'Hallo');
    end
end;

[Deep-Sea]

Und was geht nicht? "Kein Erfolg" ist nicht gerade sehr aussagekräftig

[DeddyH]

Wieso ist Sender eigentlich vom Typ TObject, wenn doch TCustomForm erwartet wird?

[himitsu]

[deleted]

[madina]

Hallo,

weitere Versuche wie folgt ohne Ergebnis dh keine 'Hallo' Ausgabe in Sender.Canvas V2:

1.

Delphi-Quellcode:

Procedure TfrmMain.Zeige(Sender: TForm);
begin
  with Sender as TForm do
    begin
      Canvas.TextOut(X, Y, 'Hallo');
    end
end;

2. Aufruf: frmMain.Zeige(form1);

[Neutral General]

Wie rufst du die Methode denn auf?!

Du knallst uns hier die ganze Zeit (quasi) identischen Code hin und sagst nur, dass es nicht klappt