Existe a possibilidade de verificar quando uma imagem foi carregada dentro de um TImage
?
Por exemplo: tenho um label que aparece "Carregando Imagem..." quando o TImage
carregar qualquer imagem, esse label deve sumir. É possível?
Stack Overflow em Português é um site de perguntas e respostas para programadores profissionais e entusiastas. Leva apenas um minuto para se inscrever.
Inscreva-se para participar desta comunidadeSim. Supondo que a imagem que você vai carregar é a partir da internet, você pode fazer assim:
Var
imageURL: string;
MS: TMemoryStream;
Jpg: TJPEGImage;
begin
imageURL := 'URL da imagem aqui';
try
MS := TMemoryStream.Create;
IdHTTP1.Get(imageURL, MS);
if ms.Size > 0 then begin
Jpg := TJPEGImage.Create;
MS.Position := 0;
try
Jpg.LoadFromStream(MS);
Image1.Picture.Assign(Jpg);
finally
Jpg.Free;
end;
end;
finally
MS.Free;
end;
No evento OnProgress()
do componente TImage
faça assim:
procedure TForm1.Image1Progress(Sender: TObject; Stage: TProgressStage;
PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string);
begin
if PercentDone = 100 then
Label1.Caption := 'imagem carregada!';
end;