Forum: Sonstige Fragen zu Delphi
Delphi
by sirius,
26. Sep 2008
Für mich ist halt grad schwer das Problem zu entdecken, weil es ja in D7 funktioniert.
Forum: Sonstige Fragen zu Delphi
Delphi
by sirius,
25. Sep 2008
Dann würde mir noch einfallen, einen Timer zu benutzen (ist nicht so schön, verhindert aber gleich generell ein Flackern) Damit schaffst du dir eine Art zeitliche Hysterese.
type ...
...
Timer:TTimer;
private
...
MsgMouseOnWork:Boolean; //mit false initialisieren
...
Forum: Sonstige Fragen zu Delphi
Delphi
by sirius,
24. Sep 2008
Weiß auch nicht genau. Vielleicht in der Case-Anweisung:
if not MouseMsgOnWork then //Feld der Klasse
begin
MouseMsgOnWork:=true;
try
case msg.msg of
...
end;
finally
Forum: Sonstige Fragen zu Delphi
Delphi
by sirius,
24. Sep 2008
Du kannst ja während des Veränderns des VST durch/über eine Variable ein weiteres "Verändern" blocken.
Forum: Sonstige Fragen zu Delphi
Delphi
by sirius,
23. Sep 2008
Beim Laden des Projektes kommen noch ein paar Warnungend. Mein delphi kennt die Größen "ExplicitXXX" bei Panel1 und VST nicht. Aber ich kann mir nicht vorstellen, dass es daran liegt. Vielleicht wurde ja etwas anderes noch verändert. Ich habe bloß heute grad keine Zeit darüber nachzudenken.
Forum: Sonstige Fragen zu Delphi
Delphi
by sirius,
22. Sep 2008
type
TForm1 = class(TForm)
vst: TVirtualStringTree;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
FoldVSTWndProc:TWndMethod;
procedure VSTwndproc(var msg:TMessage);
public