Awe vzemi procheti nqkoq knijka. Ne e hubavo da pitash za takiva raboti.

Kakto vikash ako si go pravish desgntime, vsik4o ti e v DFM-to. Ako iskash run-time, togava v programata si definirash edna procedurka:

type
TForm1 = class(TForm)
private
HTTPGet1: THTTPGet;
procedure HTTPGet1Error(Sender: TObject); // !!! toq put vuv private, zashtoto tova sam si go pravish

nqkude iz implementation trqbva da slojish:
procedure Form1.HTTPGet1Error(Sender: TObject);
begin
//razni bozi
end;

sled tova kudeto shte create-vash pishesh:
HTTPGet1 := ТHTTPGet1.Create;
HTTPGet1.OnError := Form1.HTTPGet1Error; //nikakvi prarametri zashtoto ne izvikvash ,a samo associirash subitieto

pomisli si malko za chetene
ae

by Wise Guy

Съдържаниет е скрито
Влезте за да го видите

Редактирано от Wise Guy на 21.04.02 23:04.