einfache Bildschirmtastatur

[bluescreen25]

Zitat von SirThornberry:

Die Bildschirmtastatur sorft einfach mit dem richtigen Windowstyle dafür das sie nicht den Focus bekommt wenn man sie anklickt (sie wird also NICHT aktiviert und setzt danach das letzte Fenster wieder aktiv)

Das verstehe ich jetzt nicht, egal was ich auf der Form platziere, irgendwann bekommt die Form den Focus, nicht nach dem ersten Klick, aber undeffinierbar bei xten Click.....oft wenn ich schnell hintereinander auf den Button clicke...

Was meinst du mit Windowsstyle ?

Delphi-Quellcode:

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowPos(self.Handle, HWND_NOTOPMOST + WORD(true), 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
end;


procedure TForm1.SpeedButton1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  windows.SetForegroundWindow(hForeground);
  windows.keybd_event(ord('A'), 0, 0, 0);//Beispiel
end;


procedure TForm1.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  hForeground := windows.GetForegroundWindow;
end;


procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  windows.SetForegroundWindow(hForeground);
end;

Gruß, bluescreen25