ASPLinux 11.2/fpc 2.0.4/lazarus 0.9.23
Пустая форма без намеков на кнопку
- Код: Выделить всё
procedure TFormPopup.AddBUT(s:string;toleft:boolean);
var b:TButton;
begin
showmessage(s+':'+BoolToStr(toleft));
b:=TButton.Create(Self);
b.Parent:=self;
b.Top:=50;
b.Left:=20;
b.Width:=100;
b.Height:=25;
//b.Align:=alTop;
b.Caption:=s;
b.Show;
b.BringToFront;
end;
Что делать не знаю. У кого подобный код работает? или что надо сделать чтоб работал?