Hallo zusammen,
ich komm hier einfach nicht weiter. Hab schon auf zig seiten(auf hier) verschiedene lösungen gefunden, aber nichts funktioniert.
hier mein problem;
ich erstelle aus eine datenbank menüeinträge:
Delphi-Quellcode:
bilder.First;
while not bilder.eof do
begin
NewItem := TMenuItem.Create(Self);
NewItem.Caption :=bilderbeschreibung.asstring;
newItem.onClick:= untere procedur übergabe der variable 'weg';
mbilder.add(NewItem);
bilder.Next;
end;
bei onclick soll eine variable weitergegeben werden an folgende procedure
Delphi-Quellcode:
procedure TForm1.bilderklick(sender: TObject; weg:string);
begin
if sender = TMainMenu
ShellExecute(Application.Handle,'OPEN',PCHar('http://www....index.php?weg='+weg),nil,nil,sw_ShowNormal);
end;
ich habe irgendwo was von tnotifyevent gelesen
weiß aber nicht wo genau was hin kommt z.b. procedure bilderklick(Sender: TObject; weg:string);
hier kann mir bestimmt jemand weiterhelfen.
schon mal besten dank
[edit=MrSpock]Delphi Tags eingefügt. Mfg, MrSpock[/edit]