Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Monsta3,
22. Jan 2005
Vielen, vielen Dank, läuft perfekt!! :-D
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Monsta3,
22. Jan 2005
Er schließt immer nur ein Fenster. Bei 5 Nachrichten muss ich also 5 mal auf den Btn klicken. ;)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Monsta3,
22. Jan 2005
Geht leider nicht ... :(
procedure TMainForm.btnCloseAllMsgWindowsClick(Sender: TObject);
var
WindowHandle: hWnd;
const
NETSEND_WINDOW_TITLE = 'Nachrichtendienst ';
begin
repeat
WindowHandle := FindWindow(nil, NETSEND_WINDOW_TITLE);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Monsta3,
22. Jan 2005
Ich hab das nun mit FindWindow und dem Leerzeichen nach dem Fenster-Namen gemacht. Nun möchte ich (ja, heute will ich viel ;) ), dass bei Klick auf einen Button alle offenen Nachrichtenfenster geschloßen werden. Ich hab da an so etwas gedacht:
while FindWindow(....) = true do
begin
..der code zum schließen..
end
Geht das so und könnte mir das jemand vielleicht richtig sagen?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Monsta3,
22. Jan 2005
Hm, da hab ich jetzt ja was zu tun. :?
Würde es auch gehen, wenn ich eine while-schleife verwende und beim Buttonklick alle diese Fenster schließe?
Ja, aber nur mit FindWindowByTitle. FindWindow(nil, 'Nachrichtendienst'); nicht.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Monsta3,
22. Jan 2005
So, dass mit dem Fenster finden und schließen hab ich nun hinbekommen. Wie mach ich es aber, dass das Programm so lange es geöffnet ist alle kommenden Fenter schließt? Mein aktueller Code:
procedure TForm1.Button1Click(Sender: TObject);
var
win: hWnd;
begin
win := FindWindowByTitle('Nachrichtendienst')
SendMessage(win, WM_SYSCOMMAND, SC_CLOSE, 0);
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Monsta3,
22. Jan 2005
Danke, ich werde es mal versuchen. ;)
Ja, nur leider haben wir in der Schule keine Rechte dazu. ;)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Monsta3,
22. Jan 2005
Hallo,
ich möchte, dass sich beim FormCreate()-Ereignis alle Fenster mit einem bestimmten Titel schließen - egal wie viele es sind. Kann mir da jemand helfen?
Und ja, es soll NetSend-Nachrichten schließen - blöde Spammer! :P