hi Leute,
hab mir'n kleines chat-programm entwickelt, für mein Heimnetzwerk. Die Chat-Form soll, falls sie im Hintergrund ist, nach vorne Springen
(form1.bringtofront oder application.bringtofront) tut sie aber nicht. Unten in der Taskbar von Windows blinkt mein App, mehr tut es aber leider nicht...
falls jemand rat weis, bitte schnell antworten... bin am verzweifeln!
hab einige Foren durchforstet um rat zu finden, aber ich komme um eine direkte Frage wohl nicht herum, thx for your time
nachtrag:
ich benutze Delphi 6.0 auf Win2k
100MBit-Lan, hilft wahrscheinlich nicht weiter, aber der vollständigkeithalber
hier der SourceCode für den OnRead-handler meiner Tserversocket-Routine:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
buffer:=buffer+socket.ReceiveText;
if(pos('$$',buffer)>0) then
begin
ch('['+copy(buffer,0,pos('$',buffer)-1)+']'+': '+copy(buffer,pos('$',buffer)+1,length(buffer)-(pos('$',buffer)+2)),false); //Routine die, die empfangene Nachricht weiterverarbeitet...
buffer:='';
end;
//komme in den Vordergrund!!
beep; //signal ausgeben...
Application.BringToFront; //einer der beiden
BringToFront; //Aufrufe müßte doch funzen
end; |
Kleiner Kommentar zum Prog:
Hab ich erst heut morgen entwickelt um mit meiner Freundin im Lan chatten zu können, sie sitzt in einem anderen Zimmer
Habe erst seit gestern nen Router, daher..
Ben
Moderiert von 
Aya: Code-Tags hinzugefügt
