Hallo.
Durch die Hilfe des Forums habe ich eine Procedur bekommen, mit der ich alle Bilder eines Form auf einmal unsichtbar machen kann. Nun spreche ich die Procedur wie folgt an:
Delphi-Quellcode:
procedure TLeitern.LeiterauswahlChange(Sender: TObject);
begin
leiterauswahl.OnChange := ShowImageHideOther;
end;
{Durch diesen aufruf soll folgende Procedur gestartet werden}
procedure TLeitern.ShowImageHideOther(Image: TImage);
var
i: Integer;
begin
for i := 0 to Pred(ControlCount) do
if (Controls[i] is TImage) then
TImage(Controls[i]).Visible := Controls[i] = Image;
end;
Nun bringt delphi aber den Fehler:
[Error] Leiter.pas(367): Incompatible types: 'TObject' and 'TImage'
Ich habs schon mit
Delphi-Quellcode:
procedure TLeitern.LeiterauswahlChange(Sender: TObject);
var ShowImageHideOther:timage;
begin
if Sender is TImage then
BEGIN
ShowImageHideOther:= TImage(Sender);
END;
probiert klappt aber auch nicht
[Error] Leiter.pas(371): Incompatible types: 'TNotifyEvent' and 'TImage'
Kann mir hier noch mal einer auf die Sprünge helfen? Damit hätte ich dann alle meine Probleme gelöst und könnte das Programm endlich vollständig fertig stellen.
Bitte um Hilfe. Ich weiß nicht mal, ob ich die Procedur korrekt anspreche.
Vielen Dank.