kl. Problem mit button und OnClick

[bodenheim]

Hallo,
ich habe dieses ästhetische Problem, dass wenn ich einen button clicke eine Aktion ausgelöst wird,
die mehrere Minuten dauert und in dieser Zeit bleibt der button gedrückt, und kommt erst wenn fertig wieder rauf.

Möchte aber dass der button erst wieder raufschnappt, und dann wird der Vorgang ausgelöst..
Wie geht das, eine Idee? Danke

[mkinzler]

Führe die Aktion in einem weiteren Thread durch

[Helmi]

Hallo,

da hätte ich mehrere Lösungsvorschläge im Angebot:

1. Den Code in einen Thread auslagern
2. Im Code des OnClicks des Buttons "Application.ProcessMessages" aufrufen
3. das Ganze in OnKeyUp verlagern

Bei Angebot 2 und 3 bleibt dir aber trotzdem die Application hängen.

[bodenheim]

Zitat von Helmi:

Hallo,

da hätte ich mehrere Lösungsvorschläge im Angebot:

1. Den Code in einen Thread auslagern

weiss ich nicht wie das geht, was ist das??

2. Im Code des OnClicks des Buttons "Application.ProcessMessages" aufrufen
klappt nicht

3. das Ganze in OnKeyUp verlagern
klappt nicht



Bei Angebot 2 und 3 bleibt dir aber trotzdem die Application hängen.

[bodenheim]

mein OnClick löst eine längere procedure aus, muss ich die ganze procedure also in einen thread verlagern..
muss ich mal nachlesen wie das geht.

[new32]

Zu den Threads:

Delphi-Quellcode:

function ThreadProc(p:Pointer):DWORD; stdcall; //* @Apollonius: TNX */
begin                     //* dieser code wird Thread ausgeführt            */
  MessageBox(0, 'Hallo', '', MB_OK);
  Sleep(10000);           //* Thread schläft; Hauptprogramm arbeitet weiter */
  result:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var tid:DWORD;
  hThread:THANDLE;
begin
  hThread:=CreateThread(nil, 0, @ThreadProc, nil, 0, tid);
  CloseHandle(hThread);
end;

mfg

[Apollonius]

Du hast das stdcall vergessen. Allerdings sollte man im Allgemeinen lieber BeginThread verwenden.

[bodenheim]

Zitat von new32:

Zu den Threads:

Delphi-Quellcode:

function ThreadProc(p:Pointer):DWORD; stdcall; //* @Apollonius: TNX */
begin                     //* dieser code wird Thread ausgeführt            */
  MessageBox(0, 'Hallo', '', MB_OK);
  Sleep(10000);           //* Thread schläft; Hauptprogramm arbeitet weiter */
  result:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var tid:DWORD;
  hThread:THANDLE;
begin
  hThread:=CreateThread(nil, 0, @ThreadProc, nil, 0, tid);
  CloseHandle(hThread);
end;

mfg

Hallo nochmal,
aber das nun so gemacht, klappt auch ganz gut bis zum Ende, da bekomme ich einen
Anwendungsfehler: Code 1400 Ungültiges Fensterhandle ??
Wie muss mand die function denn im Kopf deklarieren?
Danke nochmal

[bodenheim]

Thema hat sich erledigt; danke nochmal für die Hilfe