ActiveDelphi

[rzzanatta]

Ola galera, estou fazendo uma rotina de pesquisa no banco, e queria colocar uma mensagem de espera(seria outro form com gif animado mostrando 'Aguarde, em processamento'), mas ela trava enquanto nao termina a pesquisa, e estava mexendo com Thread, mas quando chamo a mensagem de espera que é um form com um gif animado, ele me retorna erro...
"Project ProjectTest.exe raised exception class EInvalidOperation with message 'Canvas does not allow drawing'.

o que seria esse erro?
chamar tela executando uma Thread nao da certo?
obrigado..

[tanure]

poste o código que faz o desenho, este erro
pode ser porque ele está tentando desenhar antes de criar o form
quando vc roda o executavel também da esse erro?

[rzzanatta]

aqui eu monto a Thread em uma Unit:
unit Unit2;

interface

uses Classes,Graphics;

type
TContador = class(TThread)
protected
procedure Execute; override;

end;

implementation

uses Unit1, MsgEspera;

{ TContador }

procedure TContador.Execute;
begin
Priority := tpLower;
//Messagem de espera
MsgEspera.Msg(True,True,'Aguarde, mostrando mensagem de espera...');
end;
end.

aqui eu monto o form da mensagem:
unit MsgEspera;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ComCtrls, StdCtrls, Gauges, JvExComCtrls, JvProgressBar,
JvExControls, JvAnimatedImage, JvGIFCtrl, JvTimer;

Procedure Msg(AtivaMsg:Boolean;Animacao:Boolean;Msg:String='');

type
TTeste = class(TWinControl);
TdlgMsgEspera = class(TForm)
PMsg: TPanel;
lblMsg: TLabel;
Barra: TJvGIFAnimator;
private
{ Private declarations }


public
{ Public declarations }
end;

var
dlgMsgEspera: TdlgMsgEspera;

implementation

{$R *.dfm}

Procedure Msg(AtivaMsg:Boolean;Animacao:Boolean;Msg:String='');
Var Control:TWinControl;
Begin
If AtivaMsg Then begin
dlgMsgEspera := TdlgMsgEspera.Create(Application);

dlgMsgEspera.lblMsg.Caption := Msg;
dlgMsgEspera.Width := dlgMsgEspera.lblMsg.Width + 50;

If Animacao Then begin
dlgMsgEspera.Height := dlgMsgEspera.lblMsg.Height +
dlgMsgEspera.Barra.Height + 20;
End else begin
dlgMsgEspera.Height := dlgMsgEspera.lblMsg.Height + 44;
End;

dlgMsgEspera.Barra.Visible := Animacao;
dlgMsgEspera.Barra.Animate := True;

dlgMsgEspera.Show;
dlgMsgEspera.PMsg.Refresh;
dlgMsgEspera.lblMsg.Refresh;

End else begin
If ( dlgMsgEspera <> Nil ) Then begin

Screen.ActiveControl.SetFocus;
dlgMsgEspera.Close;
dlgMsgEspera.Free;
dlgMsgEspera := Nil;

//Verifica o controle ativo
Control := Screen.ActiveControl;

//Se houver algum controle ativo volta o foco nele
If ( Control <> Nil ) Then begin
Screen.ActiveForm.DefocusControl(Control,False);
If ( Control.Enabled ) Then begin
Control.ControlState := [];
Control.SetFocus;
End;
End;
End;
End;
End;
end.

aí no form que eu faço o processamento eu chamo em um Button, a unit do Thread:
procedure TForm1.Button4Click(Sender: TObject);
var
ThreadContador: TContador;
begin
ThreadContador := TContador.Create( True);;
ThreadContador.FreeOnTerminate:= true;
ThreadContador.Resume;
end;

se alguem puder me ajudar....

[rzzanatta]

O que e queria realmente era, fazer q meu sistema quando vai atualizar a versao, mostre ao usuario uma tela que contenha um ProgressBar indicando o andamento e nao trave..
tentei usar Thread, mas nao estou entendendo direito seu funcionamento, acho; eu fiz q ele chame o formulario normalmente e nao deu erro, mas quando eu coloco um ProgressBar nesse formulario ele me retorna um erro..
:a component named progressbar1 already exists

como faço pra montar isso? nao consigo ver algo consistente na net q resolva isso pra mim....
alguem aí tem uma soluçao pratica?
obrigado!!!!

[marcieldeg]

A tela não pode ser criada pela thread. Deve ser criada pela sua aplicação; a thread deve somente alterar seus valores (sempre com synchronize).

Um exemplo bem simples:

UProgress.pas:

[DarkPirate]

[rzzanatta]

Obrigado marcieldeg, fiz um parecido com o que vc postou aqui e deu tudo certo.....
Valeu.................

[anderson_rf]

Olá, estou precisando disso tb, teria algum exemplo, pois não entendi muito bem