Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Delphi - button

Na Form1 budes mit udalost OnButtonClick. Tu si vytvor napr. vlozenim buttonu a napsanim udalosti. Pak button smaz.
V ni budes mit ten svuj kod, jen si IP adresu prectes z Hintu buttonu, ktery ji zavolal.


Procedure PridejButton(AForm: TForm; const ACaption, AHint: string; const X, Y: integer);
begin
  with TButton.Create(AForm) do
  begin
    Parent := AForm;
    Left := X;
    Top := Y;
    Caption := ACaption;
    Hint := AHint;
    OnClick := AForm.OnButtonClick;
  end;
end;
Volat to pak budes treba:
PridejButton(Form1, 'Server 1', 'http://192.168.15.44', 20, 50);
Do INI si zapises to same, co posilas do procedury na vytvoreni buttonu. Form tam zapisovat nemusis, ten znas.


P.S. je to z hlavy, takze pripadne chyby si oprav.

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny