Einzelnen Beitrag anzeigen

Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#4

Re: Einem Erzeugtem MenuItem ein Onclick zuweißen.

  Alt 19. Feb 2004, 18:04
Das ganze sieht jetzt so aus:

Delphi-Quellcode:
procedure TForm1.DateiLaden(Sender: TObject; Was: String);
begin
  Application.CreateForm(TForm2, Form2);
  TForm2(ActiveMDIChild).Richedit1.Lines.LoadFromFile(Was);
end;

procedure TForm1.NewItem;
var
  Item1, Item2, Item3, Item4, Item5 : TMenuItem;
  List : TStringList;
begin
  Item1 := TMenuItem.Create(Self);
  Item2 := TMenuItem.Create(Self);
  Item3 := TMenuItem.Create(Self);
  Item4 := TMenuItem.Create(Self);
  Item5 := TMenuItem.Create(Self);

  List := TStringList.Create;
  List.LoadFromFile(SettingPath + 'LastFiles.txt');


  Item1.Caption := List.Strings[0];
  Item2.Caption := List.Strings[1];
  Item3.Caption := List.Strings[2];
  Item4.Caption := List.Strings[3];
  Item5.Caption := List.Strings[4];
  Form1.MainMenu1.Items[0].Items[6].Add(Item1);
  Form1.MainMenu1.Items[0].Items[6].Add(Item2);
  Form1.MainMenu1.Items[0].Items[6].Add(Item3);
  Form1.MainMenu1.Items[0].Items[6].Add(Item4);
  Form1.MainMenu1.Items[0].Items[6].Add(Item5);

  Item1.OnClick := DateiLaden(Sender, Item1.Caption); //<-

  List.Free;
end;
aber denn kommt bei dem Pfeil:

[Fehler] umain.pas(631): Inkompatible Typen: 'TNotifyEvent' und 'procedure, untyped pointer or untyped parameter'
  Mit Zitat antworten Zitat