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) свой текст?
Добавь в Form3 функцию ShowText (ForLabel, ForMemo: String); и вызывай её
после form3.show;
В функции ес-но label1.caption:=Forlabel; и т.д.
С уважением monah
janal***@n*****.ru
Номер выпуска : 2396
Возраст листа : 162 (дней)
Количество подписчиков : 379
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/95055
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru