OnClick Prozedur für einen noch nicht vorhandenen Button

[XPLOSIV]

Also, der User kann per Knopfdruck einen TabSheet mit einem Button und einer SnyEdit erstellen, falls er dann den Button anklickt, soll der Inhalt von SynEdit Markiert werden. Ich habe es mal so geamcht um ihn die OnClick Prozedur zu zuweisen.

Delphi-Quellcode:

//Button für das TabSheet erstellen
  MyButton:= TButton.Create(ts);//Button wird erstellt
  MyButton.Parent:= ts; //damit wird dem Button das TabSheet als übergeordnete Komponente zugewiesen
  MyButton.Name:= 'Button'+IntToStr(PageControl1.PageCount);//Name wird zugewiesen
  MyButton.Caption:= 'Skript kopieren';//Er wird umbenannt
  //Funktion zuweisen
   MyButton.OnClick := MyRichEdit.SelectAll;

Doch da kommt immer Liste der Parameter ist unterschiedlich...

Wie lautet es richtig ?


MfG XPLOSIV

[sirius]

Das onclick-Event ist ein TNotifyEvent. dieses verlangt eine Methode mit folgender Deklaration:
procedure(sender:Tobject) SelectAll hat eine andere Deklaration. Da musst du wohl noch eine Methode zwischenschalten.

[XPLOSIV]

So villeicht ?

Delphi-Quellcode:

  //Funktion zuweisen
  procedure Skriptkopieren1Click(sender:Tobject)
  MyButton.OnClick := MyRichEdit.SelectAll;

Dann kommt aber Anweisung erwartet aber procedure gefunden...

[inherited]

Nein. Du erstellst dir eine neue Prozedur als Member von der Form mit dem Sender-parameter und weist die dann zu.

[oki]

Hi,

Deklaration:
  procedure AlleNeuenButtonClick(Sender : TObject); Zuweisung:

Delphi-Quellcode:

//Funktion zuweisen
MyButton.OnClick := AlleNeuenButtonClick;  [i][Edit] Schreibfehler Cklick korrigiert [/Edit oki][/i]

Procedure:

Delphi-Quellcode:

procedure MyForm.AlleNeuenButtonClick(Sender : TObject);
begin
  MyRichEdit.SelectAll;
end;

Gruß oki

[XPLOSIV]

Leider, beim Klicken kommt ne Fehlermeldung, Zugriffsverletzung...

[Muetze1]

...Weil MyRichEdit nicht existiert?

Mehr kann mir meine Glaskugel nicht sagen. Aber du könntest auch mehr Code zeigen...

[XPLOSIV]

Ich habs wie oki gemacht:

Delphi-Quellcode:

  //Funktion zuweisen
  MyButton.OnClick := AlleNeuenButtonClick;

    procedure AlleNeuenButtonClick(Sender : TObject);

Delphi-Quellcode:

procedure TForm1.AlleNeuenButtonClick(Sender : TObject);
var
MyRichEdit: TSynEdit;
begin
  MyRichEdit.SelectAll;
end;

PS. oki du hast CKlick geschrieben ^^

[Muetze1]

Zitat von XPLOSIV:

Ich habs wie oki gemacht:

Nein, hast du nicht!

Zitat von XPLOSIV:

Delphi-Quellcode:

procedure TForm1.AlleNeuenButtonClick(Sender : TObject);
var
MyRichEdit: TSynEdit;
begin
  MyRichEdit.SelectAll;
end;

Er hat dort nirgendwo eine lokale Variable deklariert!

Die Variable MyRichEdit aus oki's Beispiel steht für dein RichEdit/SynEdit bei dem du den Text markieren willst. Das musst du entsprechend ersetzen und nicht einfach eine lokale Variable dazu deklarieren (diese ist uninitialisiert und von daher ist der Fehler nur allzu verständlich...)

[XPLOSIV]

Ehrlich gesagt, verstehe ich das nicht.. Wo muss ich also die Variable hinmachen ?