Dynamicznte tworzenie formy + tworzeneie przycisku + onClick do przycisku

Odpowiedz Nowy wątek
2011-07-25 13:06
dynamicznekomponenty
0

Witam,

mam problem

Tworze dynamiczną formę w następujący sposób:

var
Form : TFrom
Bt : TButton;
begin
Form := TForm.Create(nil);
 
Form.Height := 430;
Form.Width := 715;
 
bt := TButton.Create(Form);
 
with bt do begin
  Caption := 'Przerwij';
  onClick := btTry;
 
  bt.parent := form;
end;

I chce przypisać do przycisku bt, procedure btTry, ale nie wiem jak to zrobić.
Zaznaczam że forma jest tworzona dynamicznie.

edytowany 1x, ostatnio: madmike, 2016-12-13 18:26

Pozostało 580 znaków

2011-07-25 13:12
0

Może tak?

Procedure MyOnClickFunction(Sender: TObject);
Begin
 (* some spam here *)
End;
(* ... *)
with bt do begin
  Caption := 'Przerwij';
  onClick := MyOnClickFunction;
  parent := form;
end;

edytowany 1x, ostatnio: Patryk27, 2011-07-25 13:13

Pozostało 580 znaków

2011-07-25 13:15
dynamicznekomponenty
0

No właśnie ale dostaje taki error:
[DCC Error] functions.pas(302): E2009 Incompatible types: 'method pointer and regular procedure'

Ok, już wiem co jest grane,

sorry za zawracanie w d***

Tu jest rozwiązanie:
http://delphi.about.com/cs/adptips2003/a/bltip1003_5.htm

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0