API-Funktion SetWindowPos

[juezi]

Hallo,

hier nochmal der formatierte Code

Delphi-Quellcode:

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,Height,SWP_SHOWWINDOW); 

end; 
end;

Danke