TImage Objekt als Sender nutzen

[Nightblade]

Das verstehe ich leider nicht. Ich bin blutigster Anfänger was Delphi angeht.
Image sollte tatsächlich ein Bild sein, da durch den Befehl nur alle TImages unsichtbar gemacht werden sollen. Ohne jedesmal xxx.visible:= false; etc. einzutragen.

Wo genau soll ich

Code:

TImage(Controls[i]).Visible := Controls[i] = Image;

noch eintragen.

Hab´s jetzt mal so probiert:

Delphi-Quellcode:

procedure TLeitern.LeiterauswahlChange(Sender: TObject);
var ShowImageHideOther:timage;
begin
  if Sender is TImage(Controls[i]).Visible := Controls[i] = Image; then
BEGIN
ShowImageHideOther:= TImage(Controls[i]).Visible := Controls[i] = Image;(Sender);
END;
leiterauswahl.OnChange := ShowImageHideOther;
{Also hinter jedes TImage den Befehl dahinter geschrieben.}

Jetzt kommt fehlermeldung:
[Error] Leiter.pas(367): Undeclared identifier: 'Image'
[Error] Leiter.pas(369): Incompatible types
[Error] Leiter.pas(371): Incompatible types: 'TNotifyEvent' and 'TImage'
[Hint] Leiter.pas(99): Private symbol 'ShowImageHideOther' declared but never used

Ich will doch bloss alle Bilder verschwinden lassen.

[Nightblade]

Wenn ich´s richtig umgesetzt habe.

Delphi-Quellcode:

procedure TLeitern.LeiterauswahlChange(Sender: TObject);
var{Zwischenspeichervorschlag von mkinzler}
   imgSender: TImage;
begin
  try
    imgSender := (Sender as Timage);
    leiterauswahl.OnChange := ShowImageHideOther;
finally
{geht leider auch nicht}
if leiterauswahl.Items[leiterauswahl.ItemIndex] = 'Stahlrohleiter Ecco' then
BEGIN
memo1.clear;
memo1.lines.Add('Holme weiß lackiert, mit Kunststoffstufen (max. Belastung ca. 90 kg)');
lp.Text := '79,95';
hbk.Visible := true;
END
else

[Error] Leiter.pas(371): Incompatible types: 'TObject' and 'TImage'
[Error] Leiter.pas(464): Statement expected but 'PROCEDURE' found

Geht also leider auch nicht.

[himitsu]

Und wo ist Zeile 371?

Zitat:

Delphi-Quellcode:

procedure TLeitern.LeiterauswahlChange(Sender: TObject);
var ShowImageHideOther:timage;
begin
  if Sender is TImage(Controls[i]).Visible := Controls[i] = Image; then
BEGIN
ShowImageHideOther:= TImage(Controls[i]).Visible := Controls[i] = Image;(Sender);
END;
leiterauswahl.OnChange := ShowImageHideOther;

Ich weiß ja nicht in wie weit du mit der Delphi-Syntax zurecht kommst, aber hier sollte doch nahezu jeder sehn, daß es so nicht gehn kann?
Schon alleine der Zuweisungsoperator := ist in Booleanischen Abfragestatements (ala IF) nicht erlaubt.

Aber eigentlich was es so gemeint
TImage(Controls[i]).Visible := Controls[i] = Image; (Controls[i] ist sichtbar, wenn es ein der Image-Instanz entspricht)
oder eventuell
(Sender as TImage).Visible := Sender is TImage; (Sender ist sichtbar, wenn es ein TImage ist)
oder?
(Sender as TImage).Visible := False; (Sender sollte ein TImage sein und wird nun unsichtbar.


Für dich würde ich aber empfehlen, besser aus weiche Casts ala (Sender as TImage) zu setzen,
anstatt auf harte Casts ala TImage(Sender) , denn ersterer prüft den Typ und meldet sich, wenn etwas nicht stimmt.
> siehe IS und AS in der OH