Einzelnen Beitrag anzeigen

Benutzerbild von TonyR
TonyR

Registriert seit: 17. Jun 2006
Ort: Bautzen
503 Beiträge
 
FreePascal / Lazarus
 
#5

Re: Während der Programmlaufzeit TImage-Object hinzufügen

  Alt 23. Jan 2007, 19:03
ich hab da so eine idee:
du weist allen Bildern einen anderen Tag zu
Delphi-Quellcode:
for i:=0 to 7 do
  ImageArray[i].tag:=i;
Wenn du jetzt deine Prozedur hast, die aufgerufen wird, wenn du ein Bild anklickst, bekommst du mit sender den Tag des Images raus und kannst eine Fallunterscheidung vornehmen!
Delphi-Quellcode:
procedure TueEtwasBeiKlick(sender: Tobject);
begin
  case TImage(sender).tag of
    0: ... ;
    1: ... ;
        .
        .
        .
  end;
end;
Dazu musst du dann an der Stelle, wo du den Klick abfängst noch den sender des Images übergeben!
Ich hoffe ich konnte ein bisschen helfen
Es ist unmöglich, witzig zu sein ohne ein bisschen Bosheit. Die Bosheit eines guten Witzes ist der Widerhaken, der ihn haften lässt. - Georg Christoph Lichtenberg
  Mit Zitat antworten Zitat