Events

Er der én der kan smide lidt viden til mig vedr. oprettelse af events, altså ikke std. events fra IDE, men selvoprettede events.

Hvis jeg har forstået spørgsmålet rigtigt, så burde nedenstående kunne hjælpe dig:

Du kan tildele en event runtime hvis du allerede har erklæret eventen (og den
tager de samme parametre som den event du forsøger at erstatte).

Eksempel:

procedure TForm.MyExit(Sender: TObject);
begin
ShowMessage('Edit.Focused = False');
end;

procedure TForm.ButtonClick(Sender: TObject);
begin
Edit.OnExit := MyExit;
end;

ja, vi er ved at være der, forestilldig at jeg opretter en Edit:TEdit; i runtime og vil tildele den OnKeyDown, og der i forvejen IKKE eksisterer en Editbox fra designtime. Hvordan griber man den an?

procedure TMyForm.ButtonClick(Sender: TObject);
var
MyEdit: TEdit;
begin
MyEdit := TEdit.Create(MyForm);
MyEdit.Parent := MyForm;
MyEdit.Left := 10;
MyEdit.Top := 10;
MyEdit.Text := 'blah';
MyEdit.OnExit := MyExit;

end;

procedure TMyForm.MyExit(Sender: TObject);
begin
ShowMessage('I want my focus back!');
end;

50 af de gode til dig, ikke så meget på grund af dit eksempel ;-), men mere "konceptet" bag.

Tak.