Hallo,
vielen Dank, leider habe ich immer noch das Problem mit dem anklicken, kann es daran liegen das ich meine Abfrage zum Einblenden und Ausblenden in einem Timer laufen habe?
Hier der Quellcode meines Timers
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//
Dll-Funktion um Maschinenstatus abzufragen
MepRemote_ReadMachineState(eStatus);
//Wenn der Status 9 ist muss das Formular eingeblendet werden um den Barcode abzufragen
if (eStatus = 9) and not Fl_SetSerial then
begin
//Barcode-Formular in den Vordergrund bringen
PostMessage(Self.Handle, WM_SYSCOMMAND, SC_RESTORE, 0);
SetForegroundWindow(Self.Handle);
Edit1.SetFocus
end;
//Wenn der Status ungleich 9 ist muss das Formular wieder in den Hintergrund gehen
if (eStatus <> 9) then
begin
Fl_SetSerial := false;
edit1.Text := '';
//Barcode-Formular in den Hintergrund bringen
SetWindowPos(
handle,HWND_BOTTOM,Left,Top,Width,Hei ght,SWP_SHOWWINDOW);
end;
end;
Danke