Hvordan kan man implementere en event i Delphi hvis man ikke.....

Hvad mener du med at implementere en event? Hvis du dobbelt-klikker på en af dine events i din "object inspector" så kan du selvfølig få lov til at anvende dem - men det er nok ikke det du mener?

Hvis man IKKE kan trække komonenten ned og dermed ikke få objektinspektor frem.
Hvis man selv creater i ens kode.

ex. variabel := type.create(nil);

Jeg lavede en gang en Highscore-form til et spil hvor jeg skulle bruge 8 knapper... Der gjorde jeg sådan:

var
  Buttons: array [2..9] of TButton;
  I: Integer;
begin
  for I := 2 to 9 do
  begin
    Buttons[I] := TButton.Create(pnlKnapper); {pnlKnapper er et panel. Det gjorde knapperne lettere at holde styr på! :)}
    Buttons[I].Parent := pnlKnapper;
    Buttons[I].Top := 0;
    Buttons[I].Left := (I-2)*20;
    Buttons[I].Width := 20;
    Buttons[I].Height := pnlKnapper.Height;
    Buttons[I].Caption := IntToStr(I);
    Buttons[I].Tag := I;
    Buttons[I].OnClick := ButtonClick; {Her sætter jeg OnClick-proceduren til at være en procedure jeg har lavet der hedder ButtonClick.}
  end;
end;

Min ButtonClick var så lavet således:

private
  procedure ButtonClick(Sender: TObject);

procedure THighscoresForm.ButtonClick(Sender: TObject);
begin
  GetScores((Sender as TButton).Tag);
end;

Håber det hjalp!

//hermandsen

Eksempelvis kan man når man laver en form sætte en onpaint event til en procedure(run-time):

var
myform : Tform;
procedure Tform1.formcreate(sender : Tobject);
begin
  myform := Tform.create(self);
  //tilføjer en procedure til en event
  myform.onpaint := formpaint;
end;

procedure Tform1.formpaint(sender : Tobject);
begin
  //denne procedure er nu både tilegnet Form1 og myform!!!!
end;

På samme måde gør du ved alle events. Husk der er dog nogle events der kræver nogle ekstra parametere opfyldt...

Håber det kunne hjælpe dig lidt på vej...

ZeroHero

Hvad hvis man skal implementere et event som onConnect...

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin

end;

når man bruger TclientSocket uden at trække komponenten ned på formen.

Hvis man selv har skabt sin connection således:

var
  a:TClientSocket;
implement
  a:= TClientSocket.create(nil);

Når du bruger nil som pointer betyder at den ikke skal pege på nogen adresse, det vil dermed sige at du ikke kan sætte events til den. Derfor bliver du nødt til at bruge noget andet en nil eksempelvis self, parent, form1 eller lign. Så i stedet vil der stå:

var
  a:TClientSocket;
implement
  a:= TClientSocket.create(self);

ZeroHero

Så skal du lave din egen procedure:

procedure TForm1.MinConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  ShowMessage('Davs');
end;

Under FormCreate kan du så lave din opsætning:

private
  a:TClientSocket;

procedure TForm1.FormCreate(Sender: TObject);
begin
  a:= TClientSocket.create(nil);
  a.OnConnect := MinConnect;
end;

Er det det du vil?

Upser... Zerohero har ret... Glemt jeg lige! ;)

procedure TForm1.FormCreate(Sender: TObject);
begin
  a:= TClientSocket.Create(Self);
  a.OnConnect := MinConnect;
end;

Brug det i stedet! ;)

Glemt = Glemte ;)

Siger i at man ikke kan sætte events på et TComponent hvis den ikke har en Owner? Det passer ikke. Er det måske noget der er specielt for TClientSocket?

En fin måde at finde ud af vilke værdier er "viktige" er at smide componenten på en form stille de værdier man ønsker og siden se på formen som tekst (Hæjreklik på formen og vælg Show As Text).

Selvfølig kan du sætte en event på komponent uden en owner, men du vil bare ikke få ret meget ud af det!!!

Denne kode vil give en onClick event både til button1 og x (som ikke har en owner)

var x: tbutton;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(TButton(Sender).Name);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  x := TButton.Create(nil);
  x.parent := self;
  x.SetBounds(0,0,100,30);
  x.Name := 'Hello this is button1';
  x.OnClick := Button1Click;
end;

Jeg sidder med noget lign.

jeg har:

private
procedure onRBClick(sender : TObject; var rb : TRadioButton);

procedure TForm1.onRBClick(sender : TObject; var rb : TRadioButton);
begin
//showmessage(rb.caption);
end;


mit problem, som nok minder om asppro's (måske) er at det ikek virker.

hvis jeg def. proceduren som onRBClick(sender : TObject) så virker det fint, og jeg kan kalde den uden parametre. Men når jeg vil ha' et objekt med, min radiobutton. Så vil den ingenting.
[Error] form.pas(74): Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'

>>asppro
Var det ikke på tide at lukke?