hmustak
12/11/2002, 17:41
Bana bunu Maille soran arkadaşım Muratdan , bu vesile ile sorunlarını forumda paylaşıp diğer arkadaşlarada fikir vermesinin
sözünüalarak, sorusunun cevabını buraya yazıyorum.
@murat
Kızmak yok dimi :)
var
Label1: TLabel ;
ComboBox1:TComboBox;
SpinEdit1:TSpinEdit;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
Begin
//
Label1 := TLabel.Create(self) ;
With Label1 Do Begin
Parent:=Self;
Left := 5;
Top := 70;
Width := 70;
Height := 13;
Alignment := taRightJustify;
AutoSize := False;
Caption := 'ceviz team';
end;
//
ComboBox1:=TComboBox.Create(self);
With ComboBox1 Do Begin
Parent:=Self;
Left := 85;
Top := 65;
Width := 145;
Height := 21;
ItemHeight := 13;
TabOrder := 3;
Text := 'Liste1';
Items.Clear;
Items.Add('Liste1');
Items.Add('Liste2');
Items.Add('Liste3');;
end;
end;
kolay gelsin
sözünüalarak, sorusunun cevabını buraya yazıyorum.
@murat
Kızmak yok dimi :)
var
Label1: TLabel ;
ComboBox1:TComboBox;
SpinEdit1:TSpinEdit;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
Begin
//
Label1 := TLabel.Create(self) ;
With Label1 Do Begin
Parent:=Self;
Left := 5;
Top := 70;
Width := 70;
Height := 13;
Alignment := taRightJustify;
AutoSize := False;
Caption := 'ceviz team';
end;
//
ComboBox1:=TComboBox.Create(self);
With ComboBox1 Do Begin
Parent:=Self;
Left := 85;
Top := 65;
Width := 145;
Height := 21;
ItemHeight := 13;
TabOrder := 3;
Text := 'Liste1';
Items.Clear;
Items.Add('Liste1');
Items.Add('Liste2');
Items.Add('Liste3');;
end;
end;
kolay gelsin