Create(self) bei ausgelagerter Funktion, Methodenzeiger und reguläre Prozedur

[himitsu]

Da Events nunmal Methoden-Zeiger sind, kannst du da auch nur Methoden zuweisen.

Methoten sind "Prozeduren", die in "irgendeiner" Klasse definiert sind.
Das können normale Instanz-Methoden (nur keine mit "static") oder Klassen-Methoden sein.

[uligerhardt]

Wenn du immer nur ein und dasselbe CheckboxMouseDown hast, würde ich das nicht über einen OnMouseDown-Handler lösen, sondern direkt TGridCheckbox.DoMouseDown überschreiben (oder heißt's TGridCheckbox.MouseDown?).

[Blup]

Vieleicht so:

Delphi-Quellcode:

TGridCheckBoxHelp = class(TComponent)
protected
  procedure CheckBoxMouseDown({...});
public
  procedure CreateCheckBox({...});
end;

procedure TGridCheckBoxHelp.CreateCheckBox({...});
var
  lChkBox: TGridCheckBox;

begin
  if (pColumn <> 0) AND (pRow = 0) then
    Exit;

  lChkBox := TGridCheckbox.Create(Grid); // Freigabe übernimmt das Grid oder Self

  with lChkBox do
  begin
    Column := pColumn;
    Row := pRow;
    parent := Grid;

    Checked := True;
    Caption := '';
    Width := ChkboxWidth;
    Height := ChkboxHeight;
    OnMouseDown := CheckboxMouseDown;
    Visible := false;
    Invalidate;  // Invalidate für ein unsichtbares Steuerelement?
  end;

  Grid.Objects[pColumn, pRow] := lChkBox;
  Result := lChkBox;
end;

{z.B. im Show des Formulars}
FGridCheckBoxHelp := TGridCheckBoxHelp.Create(Self); // Freigabe übernimmt Self (das Formular)
FGridCheckBoxHelp.CreateCheckBox({...});

[uligerhardt]

Wenn du aus irgendeinem Grund den Weg mit Event Handler gehen willst, kannst du es mit Klassenmethoden versuchen - siehe https://stackoverflow.com/questions/...84676#11084676. Damit ersparst du dir das Erzeugen und Freigeben einer Dummy-Instanz (wie FGridCheckBoxHelp in Blups Post ).