Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Natcree,
6. Mär 2013
Liegt wohl an meiner delphi version :lol:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Natcree,
6. Mär 2013
deddyh
Dein code funktioniert bei mir nicht
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Natcree,
6. Mär 2013
procedure TForm1.Timer1Timer(Sender: TObject);
const
IDS_WNDTITLE = 'Öffnen';
var
hWnd: DWORD;
begin
hWnd := FindWindow(nil, IDS_WNDTITLE);
if hWnd <> 0 then
SendMessage(hWnd, WM_SYSCOMMAND, SC_CLOSE, 0)
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Natcree,
6. Mär 2013
habe nen code mach mal ne ttimer kompo rauf onclickereignis und setze den timer auf deinen Zeitraum ein
habs getestet funktioniert
procedure TForm1.Timer1Timer(Sender: TObject);
begin
keybd_event( VK_ESCAPE, Mapvirtualkey( VK_ESCAPE, 0 ), 0, 0);
keybd_event( VK_ESCAPE, Mapvirtualkey( VK_ESCAPE, 0 ), KEYEVENTF_KEYUP,0);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Natcree,
6. Mär 2013
versuch mal ne ttimercomponente setze die warte zeit ein und dann opendialogfenster schließen lassen