Mam taki kodzik:
procedure TMainForm.PingerStatus(ASender: TObject;
const AStatus: TIdStatus; const AStatusText: String);
begin
case AStatus of
hsResolving: Caption := 'analiza';
hsConnecting: Caption := 'łączenie';
hsConnected: Caption := 'połączony';
hsDisconnecting: Caption := 'rozłączanie';
hsDisconnected: Caption := 'rozłączony' ;
hsStatusText: Caption := := '' {co tu ma być};
ftpTransfer: lblCaption.Caption := 'transfer';
ftpReady: lblCaption.Caption := 'gotowy';
ftpAborted: lblCaption.Caption := 'akcja przerwana';
end;
Caption := AStatusText;
end;
Niby Caption powinien się zmieniać, ale się nie zmienia :-0 . Czemu tak się dzieje [???]
I jeszcze jedno pytanie: jaki powinien byc string w lini z [code]hsStatusText[/code]?