Form2 anzeigen ohne den Focus in Form1 zu verlieren ?

[taktaky]

Halo

ist es möglich Form2 anzeigen lassen ohne Form1 den Focus zu verlieren?
Form2 soll den Focus nur bekommen, wenn man drauf klickt.

Ich möchte aber keinen Timer verwenden.

<>

[mkinzler]

Öffne Form2 und schiebe den Fokus auf Form1 zurück.

[DeddyH]

Ich weiß zwar nicht, was das soll, aber versuch es mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
  SetActiveWindow(self.Handle);
end;

[taktaky]

Zitat:

Zitat von DeddyH

Ich weiß zwar nicht, was das soll, aber versuch es mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
  SetActiveWindow(self.Handle);
end;

Fast geklappt !
Form1 bleibt immer als aktive Fenster aber der Cursor wirkt auf Form1 obwohl ich den Cursor auf Form2 bewege !

Ich habe in Form1 ein button :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Ich habe dich erwischt du oben in 1. Stock ;)')
end;

Ich wird immer erwischt obwohl ich auf Form2 bewege !
Form2 bedeckt komplett Form1

Wieso ?

Was soll ich noch machen ?

<>

[DeddyH]

Zitat:

Zitat von taktaky

Form2 soll den Focus nur bekommen, wenn man drauf klickt.

Zitat:

Zitat von taktaky

Form1 bleibt immer als aktive Fenster aber der Cursor wirkt auf Form1 obwohl ich den Cursor auf Form2 bewege !

Kannst Du Dich mal entscheiden?

[taktaky]

Zitat:

Zitat von DeddyH

Kannst Du Dich mal entscheiden?

Alles in Ordnung mit :

Code:

    Form2.show;
   SetActiveWindow(self.Handle);

Ich möchte aber das Message nicht angezeigt, wenn der Cursor drauf kommt.

[DeddyH]

Wenn der Cursor wohin kommt? Stell doch mal verständliche Fragen.

[taktaky]

Zitat:

Zitat von DeddyH

Wenn der Cursor wohin kommt? Stell doch mal verständliche Fragen.

Der Cursor soll auf Form2 bleiben
Wie ich sehe, Form2 wird sofort nach unten verschoben, damit Form1 den Focus zu bekommen !
Form2 Soll immer vorne

Ich werde wahrscheinlich noch einen Code in Form2 einbauen, der Form2 immer vorne macht oder?

Delphi-Quellcode:

begin
SetWindowPos(Handle, HWND_TOPMOST, Left,Top, Width,
             Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

[DeddyH]

Setz bei Form2 mal FormStyle auf fsStayOnTop (obwohl ich nun endgültig den Überblick verloren habe, was Du eigentlich willst).

[Matze]

Zitat:

Zitat von taktaky

Form2 Soll immer vorne

Bitte formuliere vernünftige deutsche Sätze und nicht wild zusammengesammelte Wörter. Siehe dir hierzu FormStyle und fsStayOnTop ein.

Aber was du genau willst, habe ich nicht verstanden. Deine Beiträge sind ja nur wirr.