Aktivere "Knap X" uden at trykke?

f.eks. Button1.click;
eller: BtnOK.click; eller hvad knappen nu hedder.. :)

// Jonat.

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('hej');
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  Button1Click(Self);
end;

Snowball>> Din løsning kan godt være forkert, selvom den som oftes er rigtig. Hvis nu jeg Assigner OnClick events på runtime, så er det jo ikke sikkert at  TForm1.Button1Click(Sender: TObject) er den rigtige procedure  det kunne ligeså godt være TForm1.Button2Click(Sender: TObject). Så derfor skal man altid bruge Button1.click; den rammer den rigtige.

Jens B

Jens: OK. Har dog aldrig haft problemer med den måde jeg skrev :)

Må antage at .Click er tiltænkt de gange hvor man ikke vil sende noget med Sender.

Under alle omstændigheder vil din løsning ovenfor resultere i en fejl hvis din Button1Click begynder sådan her:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with (Sender as TButton) do ...

idet du sender en TForm afsted - self bruges normalt kun (med fare for at blive korekset endnu en gang) til constructorere for at fortælle hvem der håndterer ejerskab og frigivelse ved programafslutning.

well - han kan vel bare sende knappen med som afsender i stedet for formen. Problemet med at assigne events runtime, kan vel løses således

  if Assigned(Button1.OnClick) then
    Button1.OnClick(Button1);

nico26: Det ved jeg godt, men så skulle han have gjort det i eksemplet.

okay - men jeg synes bare jeg ville forklare hvordan man klarer begge de nævnte problemer...

Hej med jer alle!

Undskyld den meget sene reaktion på jeres svar &
kommentarer.

Dog vil jeg tillade mig at give mine points til:
snowball, da den løsning passede i min situation.

Tak for jeres deltagelse. Prøv lige at kigge på:
eksperten.dk/spm/582338 (nyt spørgsmål)

M.V.H    jaweni