Sound bei Memo

[gothic_mike]

Zitat von 5t3v0:

wenn ich das tue dann meldet der unbekannter bezeichner bei Socket vorher hatte ich das so, doch da hat der auch irgendwie gesagt das der ausdruck boolean sein muss nur versteh ich das noch nicht

Delphi-Quellcode:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 Form1.Show;
 Memo1.Lines.Add(Socket.ReceiveText);
 if Memo1.Lines.Add(Socket.ReceiveText) then
 PlaySound (nil,0,0);
 PlaySound ('msg.wav',hInstance,SND_RESOURCE or SND_ASYNC);
end;

also, nach deiner methode funktionierts so:

Delphi-Quellcode:

begin
  if (memo1.lines.Add(Socket.ReceiveText) > -1) then begin
    PlaySound(nil, 0, 0);
    PlaySound('msg.wav', hInstance, SND_ASYNC);
  end;
end;

es geht aber auch über OnChange:

Delphi-Quellcode:

procedure TForm1.Memo1Change(Sender: TObject);
begin
  PlaySound(nil, 0, 0);
  PlaySound('msg.wav', hInstance, SND_ASYNC);
end;