Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.09;
Скачать: CL | DM;

Вниз

Компоненты во время работы   Найти похожие ветки 

 
stas_a   (2002-11-28 13:09) [0]

Здрасть есть код

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
compon:array[1..2] of tComponent;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
compon[1]:=Tmemo.Create(Self);
With compon[1] do
begin
top := 200;
Left := 50;
Width:=200;
Height:=200;
Text := "proverka";
end;
end;

end.

Форма с кнопкой.
При нажатии у меня форма становится 200 на 200 сверху 200 слева 50 а Memo не создаётся вообще помогите плииз.


 
MBo ©   (2002-11-28 13:12) [1]

нужно еще
1) назначить Parent
2) with (compon[1] as TMemo) do ...


 
stas_a   (2002-11-28 13:14) [2]

Спасибо буду пробовать.



Страницы: 1 вся ветка

Текущий архив: 2002.12.09;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
1-27980
Илайдж
2002-11-29 15:03
2002.12.09
Работа с Excel без левых компонент.


14-28290
MFV
2002-11-04 00:52
2002.12.09
Как дрыгать диском, типа он форматируется


1-28046
Владислав
2002-11-28 19:06
2002.12.09
TImageList & TImage


14-28266
Шишкин Илья
2002-11-14 20:23
2002.12.09
Помогите с Физикой


3-27862
s_karm
2002-11-21 10:59
2002.12.09
сортировка