Announcement

**Andreas Kosch** · 18.01.2001, 09:21

Hallo,

nicht ohne Grund wird eine neue TThread-Unit mit einem langen Kommentarblock generiert, der mit dem Satz "Wichtig: Methoden und Eigenschaften von Objekten in der VCL k�nnen nur in einer Methode namens Synchronize verwendet werden" beginnt.

Die Methode Synchronize sorgt daf�r, dass der Programmcode im Kontext des prim�ren Threads der VCL ausgef�hrt wird. Ist dieser prim�re Thread ausgelastet (d.h. er fragt nicht die Botschaftswarteschlange ab), wird die �ber Synchronize �bergebene Aufgabe nicht abgearbeitet. Dies ist die Erkl�rung daf�r, dass sich die Komponente �ber diesen Weg nicht neu zeichnen kann (Synchronize = nur ein Thread darf gleichzeitig laufen).

Der alternativ eingeschlagene Weg �ber eine Critical Section ist in dem o.g. Beispiel v�llig wirkungslos. Eine Critical Section verhindert nur, dass mehrere Threads gleichzeitig den gesch�tzten Code-Bereich durchlaufen. Da die VCL (prim�rer Thread der Anwendung) jedoch niemals diesen Bereich aufruft, und auch kein eigener zweiter Thread dies macht, ist das Einklammern in eine Critical Section �berfl�ssig. Diese Implementierung ist russisches Roulette, es ist nur eine Frage der Zeit, bis es knallt :-)

Die TAnimate-Komponente ist nur ein VCL-Wrapper auf das Win32-Control ANIMATE. Und dieses Control ist ein eigenst�ndiges Fenster, dass von Microsoft mit Visual C++ geschrieben wurde. Daher wird hier Synchronize nicht ben�tigt.

Wenn man mit Delphi so etwas nachbauen will, muss man das einbettende Formular f�r den Darstellungsbereich der Animation in eine DLL auslagern. Dort wird eine Formularinstanz erzeugt, die sich als Childfenster (BorderStyle = bsNone) in das Formular der Anwendung einbettet:
<pre>
procedure TForm_ZB.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
begin
Style := WS_CHILD or WS_VISIBLE;
WndParent := hParent;
end;
end;
</pre>
Die DLL exportiert eine Schnittstellenprozedur, bei der das Fensterhandle des "Zielbereichs" als Parameter �bergeben wird:
<pre>
procedure E_CreateTV_ZB(aParent: Integer); stdcall;
</pre>
In dieser Schnittstellenprozedur ermittelt das DLL-Formular, wie gross es sich darstellen muss:
<pre>
procedure E_CreateTV_ZB(aParent: Integer); stdcall;
var
aRect : TRect;
begin
try
hParent := aParent;
GetWindowRect(aParent, aRect);
// Formular als Childfenster erzeugen + Gr��e anpassen
Form_ZB := TForm_ZB.Create(Application);
Form_ZB.Width := aRect.Right - aRect.Left - 5;
Form_ZB.Height := aRect.Bottom - aRect.Top - 5;
Form_ZB.Visible := True;
except
// Exceptions unbedingt abfangen
MessageBeep(0);
end;
end
</pre>
Solange weder die Anwendung noch die DLL Runtime-Packages verwenden, sollte dieser Weg machbar sein. Ich habe das jedoch noch niemals mit einem externen Thread ausprobiert

Announcement

Synchronize o. Cirticalsection

Synchronize o. Cirticalsection

Comment