| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Panel:=TPanel.Create(Form); [D5, Win95/98]

Schummi ©   (2002-03-30 08:08:00) 

Здравствуйте, Мастера! Не могу понять, почему у мя компонент 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;

---

Anatoly Podgoretsky   (2002-04-02 13:50:00) [1]

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

---

Schummi   (2002-04-02 07:47:00) [2]

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

---

dymka   (2002-03-31 16:05:00) [3]

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

---

Schummi   (2002-03-31 15:18:00) [4]

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

---

dymka   (2002-03-31 11:37:00) [5]


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

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

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


---

Schummi   (2002-03-31 11:34:00) [6]

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

---

Schummi   (2002-03-31 09:44:00) [7]

Пасиба!

---

WhiteRat   (2002-03-30 21:06:00) [8]

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

---

Locked   (2002-03-30 08:16:00) [9]

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

---

Schummi   (2002-03-30 08:13:00) [10]

Где?

---

Locked   (2002-03-30 08:11:00) [11]

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

---

Наверх