delphi6
Всем привет. Пишу програмку которая помимо прочего являтся и чатом.
Нужно чтобы при поступлении сообщения выскакивали окошка.
Делаю так (может и не правильно)
var a:tform;
begin
a:=unit3.tform3.create(form1);
a.Caption:='ПовЁдомлення вЁд '+vid;
a.Show;
end;
в самом unit3 следующее:
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm3 = class(TForm)
BitBtn2: TBitBtn;
BitBtn1: TBitBtn;
BitBtn3: TBitBtn;
Label2: TLabel;
Label1: TLabel;
Memo1: TMemo;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
end.
Окошко выскакивать выскакивает, но как мне поместить в компоненты
(memo, label) свой текст?
