Kod: Tümünü seç
type
TOpenQuery = Class(TThread)
Public
constructor Create(Q: TUniQuery);
protected
tQry: TUniQuery;
tSQL: String;
procedure Execute; override;
end;
{ TOpenQuery }
constructor TOpenQuery.Create(Q: TUniQuery);
begin
inherited Create(False);
FreeOnTerminate := True;
tQry := Q;
end;
procedure TOpenQuery.Execute;
begin
inherited;
Screen.Cursor := crAppStart;
with tQry do
Begin
Open;
"<forum.Edit1.Text := '2';>" //Aynı Forum daki Edite mesaj vermekistiyorum
End;
Screen.Cursor := crDefault;
end;
Kod: Tümünü seç
var
T: TOpenQuery;
begin
T := TOpenQuery.Create(uniquery);
end;
formu mainformdan
Kod: Tümünü seç
var
Form: TF_FrmEditor; //Diğer formum ve uses satırında tanımlı
begin
Application.CreateForm(TF_FrmEditor, Form);
// Form := TF_FrmEditor.Create(Application); //bunu da denedim
Form.Q_Editor.Connection := UniConnection1;
Form.Show;
formu create ediyor ama procedure TOpenQuery.Execute; metodunda "<>" içerisindeki kodda hata veriyor
ama sınıfın tanımlı olduğu formu mainform veya "auto-create forms" bölümüne atarsam aynı kodla program çalışıyor.
bu arada kodun yaptığı işlem ise sınıfa parametreyle gönderdiğim UniQuery' i thread içinde açıyor ve bu sayede UniQuery açılırken geçen sürede program donmuyor