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

Вниз

Panel:=TPanel.Create(Form);   Найти похожие ветки 

← →
Schummi ©   (2002-03-30 08:08) [0]

Здравствуйте, Мастера! Не могу понять, почему у мя компонент TPanel не виден? Привожу часть исходника. Заранее пасиба!

var
Form: TForm;
Label1: TLabel;
Panel:TGroupBox;
ComboBox: TComboBox;
Edit: TEdit;
begin
Form := TForm.Create(Application);
with Form do try
Canvas.Font := Font;
BorderStyle := bsDialog;
Caption := ACaption;
Width:=258;
Height:=147;
Position := poScreenCenter;
Panel:=TGroupBox.Create(Form);
with Panel do begin
Caption:="";
Align := alBottom;
BevelInner:=bvRaised;
BevelOuter:=bvLowered;
BorderStyle:=bsNone;
Height:=105;
Left:=8;
Top:=8;
Width:=233;
Visible:=True;
Label1 := TLabel.Create(Panel);
with Label1 do
begin
Parent := Form;
AutoSize := True;
Caption := ALabel;
Top:=100;
end;
Edit := TEdit.Create(Panel);
with Edit do
begin
Parent := Form;
Left := Label1.Left;
MaxLength := 255;
SelectAll;
end;
end;
if ShowModal = mrOk then
begin
Result := Edit.Text;
end;
finally
Form.Free;
end;

---

← →
Locked   (2002-03-30 08:11) [1]

Parent указать попробуй

---

← →
Schummi ©   (2002-03-30 08:13) [2]

Где?

---

← →
Locked   (2002-03-30 08:16) [3]

допустим после
Panel:=TGroupBox.Create(Form);
with Panel do begin
Caption:="";
Align := alBottom;
Parent:=Form;

---

← →
WhiteRat   (2002-03-30 21:06) [4]

А Form1.InsertControl(Panel) или Form1.InsertComponent(Panel)?

---

← →
Schummi ©   (2002-03-31 09:44) [5]

Пасиба!

---

← →
Schummi ©   (2002-03-31 11:34) [6]

Да, ещё вопрос! Как кнопке, которая тоже создается, как и label (см. выше.), указать её онКлик? Когда в этой процедуре пишу
type
TForm1=class(TForm)
...
end;
Выдается ошибка!

---

← →
dymka ©   (2002-03-31 11:37) [7]


Form1 = class(TForm)
ButtonClick(Sender: TObject);
end;
...

Button1 := TButton.Create(Form1);
...
Button1.OnClick := ButtonClick;
...

procedure ButtonClick(Sender: TObject);
begin
// твой обработчик
end;


---

← →
Schummi ©   (2002-03-31 15:18) [8]

2dymka
Да, пасиба. Но я так делал, у мя че-то там вылетает?!

---

← →
dymka ©   (2002-03-31 16:05) [9]

может птичка?

---

← →
Schummi ©   (2002-04-02 07:47) [10]

Все, разобрался! Всем большое спасибо!

---

← →
Anatoly Podgoretsky ©   (2002-04-02 13:50) [11]

И что птичка оказалась?

---

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

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

Наверх

Память: 0.49 MB
Время: 0.011 c