انشاء TEdit برمجيا

ali 9/6/2015, 12:44 pm

بسم الله الرحمن الرحيم

الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

انشاء TEdit برمجيا

الكود:: var Edits: TEdit; procedure TForm1.FormCreate(Sender: TObject); begin Edits := TEdit.Create(self);// delph.forumalgerie.net Edits.Parent := Form1;// delph.forumalgerie.net Edits.Show;// delph.forumalgerie.net Edits.Left := 50;// delph.forumalgerie.net Edits.Top := 50;// delph.forumalgerie.net Edits.Width := 157; Edits.Height := 5; Edits.Name := 'EditTest'; Edits.Font.Name := 'Arial'; Edits.Font.Charset := ARABIC_CHARSET; Edits.Font.Size := 9; Edits.Font.Style := [fsBold]; Edits.BiDiMode := bdRightToLeft; Edits.MaxLength := 11; Edits.Enabled := True; Edits.ReadOnly := False; Edits.Visible := True; Edits.Hint := 'Je suis hint'; Edits.ShowHint := True; Edits.PasswordChar := #0; // Normal {Edits.PasswordChar := *; Mot de passe } Edits.TabOrder := 0; // 0 1 2 3 ... Edits.TabStop := True; Edits.Text := ''; Edits.Font.Size := 11; end;

الكود:: procedure TForm1.FormDestroy(Sender: TObject); begin Edits.Free; // delph.forumalgerie.net end;

.