odwołanie do procedury

0

mam cos takiego :

procedure CosTam(Sender);
begin
tresc 
end;

i chem cos takiego:
<delphi>
if ChechBox.Checked then i tutaj wykona kod w proceduurze CoSTam else ....
Jak to zrobic ?

0

heh, widze że żadnego kursu sie nie chciało przeczytać...
zaraz ten temat poleci se, ale może zdążysz przeczytać

dajesz po prostu nazwe tej procedury, a jak ma sender to w nawiasie dajesz 'nil'
np: costam(nil);

[<font color="violet">Dopisane do poniżej</span>:]
Lofix to było genialne [diabel]

0
PUBLIC
procedure WskazLolka;


procedure Form1.WskazLolka;
begin
ShowMessage('Jestes lolkiem');
end;


procedure Form1.ButtonClickalboInnyClick(Sender:costam);
begin
if cosjestzaznaczone then //jezeli cos jest wykonane
begin
WskazLolka; //wywolujemy nasz procedurke
end else begin//jezeli nie jest to..
ShowMessage('lolka brak'); //wykonujemy cos inego
end;
end;

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