TPanel als Sender Casten

[jziersch]

Hallo,

"Casten" bedeutet, dass Du dem Compiler sagst, eine Referenz auf ein Objekt (also "Sender : TObject") deutet auf eine Instanz eine bestimmter Klasse.

Delphi kennt zwei Möglichkeiten zu casten:

das low-level casten
TPanel(Sender).Text

oder das high level casten (Sender as TPanel). Text.

Letzteres prüft zunächst, ob "Sender" überhaupt den genannten Typ ist oder diesen als Vorfahr hat. Wenn nicht, wird eine Exception ausgelöst. Falls Du "TPanel(Sender)" verwendest und Sender ist kein TPanel (und stammt nicht davon ab) gibt es eine böse Schutzverletzung.

Du kast auch den "is" Operator verwenden um dies selbst zu prüfen:

if Sender is TPanel then
x := TPanel(Sender).Text

So mache ich es normalerweise.

[IncredFx]

Zitat von jziersch:

Hallo,

"Casten" bedeutet, dass Du dem Compiler sagst, eine Referenz auf ein Objekt (also "Sender : TObject") deutet auf eine Instanz eine bestimmter Klasse.

Delphi kennt zwei Möglichkeiten zu casten:

das low-level casten
TPanel(Sender).Text

oder das high level casten (Sender as TPanel). Text.

Letzteres prüft zunächst, ob "Sender" überhaupt den genannten Typ ist oder diesen als Vorfahr hat. Wenn nicht, wird eine Exception ausgelöst. Falls Du "TPanel(Sender)" verwendest und Sender ist kein TPanel (und stammt nicht davon ab) gibt es eine böse Schutzverletzung.

Du kast auch den "is" Operator verwenden um dies selbst zu prüfen:

if Sender is TPanel then
x := TPanel(Sender).Text

So mache ich es normalerweise.

Perfekt, endlich funktionierts! Gleich mal 60 Zeilen Code gespart Danke für die verständnisvolle Erklärung.

[jziersch]

Noch ein kleiner Tip der hier dazu passt:

Die Controls haben alle ein Property "Tag" (=Etikett) welche man frei verwenden kann.

Es wäre für den Taschenrechner möglich den jeweiligen Wert der Taste in dem "Tag" zu hinterlegen. Dann braucht man für alle OnClick nur noch eine Prozedur welche eben dann ""Tag" auswertet.

Gerne verwendet wird auch solcher code:

case (Sender as TControl).Tag of
0 : raise Exception.Create('Tag wurde nicht zugewiesen");
1 : tue dies
2: tue das
end;

[Fukiszo]

Hi, als Neuling kann dir dieser Source im Anhang vielleicht ein wenig helfen um das eine oder andere zu lernen.
Es ist ein ur-alter Taschenrechner Source. (Die .res Datei hab ich wegen inkompatibilät gelöscht, lass Delphi eine neue erstellen, da ist nur das Icon drinn)

Grüße und viel Spass mit Delphi!

ps: der source ist nicht von mir, diente mir auch nur als Beispiel um davon zu lernen.

[hoika]

Halo,
um das Bsp. von jziersch fortzuführen.

Gib allen dein OnClick-Events über den Objektinspektor das Panel0Click. Die anderen PanelXClick-Methoden können gelöscht werden.
Dann bekommen alle Panels auch über den Objektinspektor im Property Tag die entsprechende Nummer (0-9).

Delphi-Quellcode:

procedure TForm1.Panel0Click(Sender: TObject);
var
  Panel: TPanel;
begin
  if Sender is TPanel then
  begin
    Panel := TPanel(Sender);  // Sender auf TPanel casten
    resultedit.Text := resultedit.Text + IntToStr(Panel.Tag);
  end;
end;

Die lokale Variable Panel dient der Übersicht, kann aber auch weggelassen werden.
Das is dient zur Absicherung, dass es wirklich ein TPanel ist.

[IncredFx]

Danke für die weiteren Antworten. Habe es wie folgt gelöst;

Code:

procedure TForm1.PanelNumberClick(Sender: TObject);
var
  Panelcap    : string;
begin
if Sender is Tpanel then
Panelcap := TPanel(Sender).caption;
resultedit.Text := (resultedit.Text + Panelcap);
end;

Jeder Button mit Nummer hat nun diese Procedure bei "OnClick" zugewiesen und es funktioniert ohne Probleme. Habe damit auch die verschiedenen Rechenarten und die Drückeffekte für die Panels generell umgesetzt. Konnte somit von ca. 550 Zeilen auf ca. 210 verkürzen

[DeddyH]

Sagt der Compiler nichts dazu? Ich würde da beherzt noch ein begin und end einfügen.

Delphi-Quellcode:

procedure TForm1.PanelNumberClick(Sender: TObject);
var
  Panelcap   : string;
begin
  if Sender is Tpanel then
    begin
      Panelcap := TPanel(Sender).caption;
      resultedit.Text := (resultedit.Text + Panelcap);
    end;
end;

[Delphi.Narium]

Die ursprüngliche Variante ist so schon ok, aber mit begin und end sicherlich "schöner" (verständlicher). Es würde aber auch so ausreichen:

Delphi-Quellcode:

procedure TForm1.PanelNumberClick(Sender: TObject);
begin
  if Sender is TPanel then resultedit.Text := resultedit.Text + TPanel(Sender).Caption;
end;

Die Caption des Panels muss nicht erst in eine Variabel übernommen werden, die dann an den Text angehängt wird.