Discussion :

[Chyokyka]

Salut !
Je voudrais faire apparaitre ou cacher mon tchat depuis le client !
Donc dans le server j'ai mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
myString : String;
buff : array[0..MAX_COMPUTERNAME_LENGTH] of char;
nsize : DWORD;
begin
nsize := SizeOf(buff);
myString := Socket.ReceiveText;
Text := Socket.ReceiveText;
Randomize();
chaine := Socket.ReceiveText;
Chat.Lines.Add(chaine);
if MyString = 'CacherChat' then
begin
Application.ShowMainForm:=False;
end
else if MyString = 'AfficherChat' then
begin
Application.ShowMainForm:=True;
end;
end;

Et dans le client j'ai mis sur un boutton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
begin
ClientSocket1.Socket.SendText('AfficherChat');
Memo1.Lines.Add('Informations envoyées au serveur');
end;

Voili voilou
Sa ne marche pas
Si vous avez des idée ... ^^
@++

[evarisnea]

ShowMainForm
Détermine si l'application affiche la fiche principale au démarrage

visiblement, cette propriété contrôle l'affichage de la fiche principale au démarrage de l'application seulement.
tu souhaites cacher uniquement la fiche principale ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Application.MainForm.Hide();
//ou
Application.MainForm.Visible := False;

ou alors toutes les fiches de ton application ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
var
  i:Integer
begin
  for i := 0 to screen.FormCount - 1 do
    screen.Forms[i].Hide();
end;

[ShaiLeTroll]

ReceiveText appelé trois fois ?
Cela ne poserait-il pas problème ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Application.MainForm.Hide();
Application.MainForm.Show();

ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ShowMainForm := False;

Ajoute une Seconde Form à ton Projet, le main ne sert que pour le socket (voir un Notify Icon à côté de l'heure ça serait sympa)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TFrmView.FormCreate(Sender: TObject);
begin
  SetWindowLong (Application.Handle, GWL_EXSTYLE,
                 GetWindowLong (Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
end;

[Chyokyka]

Merci héhé ^^
@++