انشاء TEdit برمجيا
صفحة 1 من اصل 1
انشاء TEdit برمجيا
بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
انشاء TEdit برمجيا
.
الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
انشاء 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;
.
ali- مبرمج مجتهد
- عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى