Deutsches Lazarusforum

Hmmm. Auch wieder klar. Seis drum, jetzt funktionierts. Besten Dank für die Hilfe.

Gruß,
Olaf

Ach ne... :shock:
Bei mir siehts so aus:

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnDeactivate:=@AppDeactivate;
Application.OnActivate:=@AppActivate;
end;

procedure TForm1.AppDeactivate(Sender: TObject);
begin
Form1.AlphaBlendValue:=128;
Form1.AlphaBlend:=true ...

Ah, das hätt ich noch schreiben können: Der ondeactivate Teil ist unkritisch. Will sagen, die Anweisungen werden, zumindest laut Debugger, durchlaufen. Nur scheinen sie nichts zu bewirken. Und form.ondeactivate greift nur wenn zu einem anderen Formular der gleichen Applikation gewechselt wird. Wird ...

Hi,
ich hab da ein kleines Problem. Ich habe ein Formular, das ich, wenn es den Focus verliert gerne durchscheinend machen würde.
Also hat sich klein Olaf gedacht, einfach in application.ondeactivate ein

form.alphablend:=true;
form.alphablendvalue:=128;

und gut ist. Ists aber genau nicht. Ich ...

Hmmm... erst mal danke für das Feedback.
Ich hab hier die 1.1 39122 32 bit unter Windows am laufen und bekomme immer den selben "shift-Inhalt" der allerdings nie etwas mit der Realität zu tun hat.

Es scheint allerdings an TTrayIcon zu liegen. Mach ich das ganze z.B. über ein Panel gehts. Verdammt ...

Hi,
ich versuch hier in einem Projekt verschiedene Popup Menüs anzuzeigen, ja nachdem ob man beim Rechtsclick die Shift Taste gedrückt hält, oder nicht.
Nur schaff ichs ums Verrecken nicht den Shiftstate auszulesen. So langsam glaube ich, daß es da einen Bug gibt, denn wenn ich die Variable shift ...