Форум: "Основная";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c