Показать сообщение отдельно

  #9  
Старый 12.05.2010, 15:57
RedFern.89
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
С нами: 8582863

Репутация: 69
По умолчанию

так и сделал)) помог следующий код:

Код:
// ---- Вывод диалога ввода кода капчи ----
procedure TidVKClient.ShowCaptchaDialog(const captcha_sid: string);
var
  MS  : TMemoryStream;
  Jpg : TJpegImage;
begin
   Ms  := TMemoryStream.Create;
   Jpg := TJpegImage.Create;
   Get('http://vkontakte.ru/captcha.php?s=1&sid=' + captcha_sid, Ms);
   Ms.Position := 0;
   Jpg.LoadFromStream(ms);
   DlgForm.imgKey.Picture.Graphic := Jpg;
   Jpg.Free;
   Ms.Free;
   DlgForm.Caption := 'Enter Code';
   DlgForm.ShowModal;
end;
однако меня этот uses Forms; не улыбает вовсе
 
Ответить с цитированием