Form inaktiv anzeigen

[Shaman]

Hey, danke dass Du dir so eine Mühe gemacht hast , aber soweit bin ich auch schon gekommen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowWindow(Handle, SW_SHOWNOACTIVATE);
end;

Das macht das gleiche, oder? Nur soll die Form eben auch inaktiv bleiben, wenn sie geklickt wird.

[Stevie]

Zitat von Shaman:

Hey, danke dass Du dir so eine Mühe gemacht hast , aber soweit bin ich auch schon gekommen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowWindow(Handle, SW_SHOWNOACTIVATE);
end;

Das macht das gleiche, oder? Nur soll die Form eben auch inaktiv bleiben, wenn sie geklickt wird.

Toll, und ich hook hier rum!
Tja, jetzt hab ich aber nen simplen Tip Enabled := False....

[Shaman]

Ja, aber die ListBox soll man klicken können
Aber ich glaube, mit der ParentWindow-Variante könnte sich was basteln lassen...

[Stevie]

Zitat von Shaman:

Ja, aber die ListBox soll man klicken können
Aber ich glaube, mit der ParentWindow-Variante könnte sich was basteln lassen...

Wie soll das denn gehen? Wenn du die ListBox anwählst, wird auch das Fenster angewählt,
und somit das andere Fenster inaktiv gezeichnet. Und wenn du den Fokus wieder manuell zurücksetzt...

... ich glaub es reicht langsam für heute

[Der_Ventilator]

Zitat von Shaman:

Hey, danke dass Du dir so eine Mühe gemacht hast :thumb: , aber soweit bin ich auch schon gekommen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowWindow(Handle, SW_SHOWNOACTIVATE);
end;

Das macht das gleiche, oder? Nur soll die Form eben auch inaktiv bleiben, wenn sie geklickt wird.

Wie kann ich die Form nicht beim OnCreate inaktiv anzeigen, sondern immer wieder mal im Programmablauf?

[fkerber]

Hi!

Mit nem Timer z.B.?


Ciao Frederic

[Sharky]

Hai Shaman,

ich bin nicht sicher ob ich dich richtig verstanden habe. Aber Du brauchst doch nur den Parent zu setzen. Oder gleich mit .CreateParented arbeiten?
Im Anhang mal mein mini Projekt.

[Der_Ventilator]

Zitat von fkerber:

Hi!

Mit nem Timer z.B.?


Ciao Frederic

Ich mein, wie ruf ich " ShowWindow(Handle, SW_SHOWNOACTIVATE); " angewand auf meine 2. Form aus dem Hauptprogramm auf?

procedure form1.zeige;
begin

Form2.ShowWindow(Handle, SW_SHOWNOACTIVATE);

end;

akzeptiert Delphi jedenfalls nicht.