Tryk knapper via kode (run-time) :)

Du kalder bare dit onclick event med nil som parameter.

Jens B

????

Jeg skal bruge kode ala:

Button.down := true;

hvis du forstår hvad jeg mener ?!?

Så prøv den her :

procedure SetButtonStyle(Button : TButton);
const
  BS_MASK = $000F;
var
  Style: Word;
  I : Integer;
begin
  Style := BS_PUSHBUTTON;

  for i:= 0 to Form1.ComponentCount-1 do
  begin
    if Form1.Components[i] is TButton then
      if GetWindowLong(TButton(Form1.Components[i]).Handle, GWL_STYLE) and BS_MASK <> Style then
          SendMessage(TButton(Form1.Components[i]).Handle, BM_SETSTYLE, Style, 1);
  end;

  If Button = nil then
    exit;

  if Button.HandleAllocated then
  begin
    Style := BS_DEFPUSHBUTTON;
    if GetWindowLong(Button.Handle, GWL_STYLE) and BS_MASK <> Style then
      SendMessage(Button.Handle, BM_SETSTYLE, Style, 1);
  end;
end;


Den er sin egen resiprokke ... Så den stoppe du bare en knap ind i ...

jens B

Hvorfor accepterede du ikke Borrisholt\'s svar det var rigtigt !?

Lad os antage at din event ser ud som flg:
<SNIP>
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
<SNIP>

Så kander du den bare ved at skrive: Button1Click(Nil);

Sikke noget vrøvl Jens .. Du skal stoppe en knap ind i den for at få den trykket ned og nil ind i den for at få den op igen ...

jens B

pellelil >> sikkert rigtigt, men det hjalp ikke :))