في بروسيجر الانشاء ضع الكود التالي
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong( Handle,
GWL_STYLE,
GetWindowLong( Handle, GWL_STYLE )
and not WS_CAPTION );
ClientHeight := Height;
end;
يوما ما سوف تحتاج هذا الكود
في بروسيجر الانشاء ضع الكود التالي
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong( Handle,
GWL_STYLE,
GetWindowLong( Handle, GWL_STYLE )
and not WS_CAPTION );
ClientHeight := Height;
end;
يوما ما سوف تحتاج هذا الكود
مين
----------------------------------
بروسيجر
---------------------------------
!!!!!!!!!!!!!!!!!!!!
بروسيجر = procedure = اجراء أو حدث كما يسمونه اهل الفيجول بيسك
اخي عبدالله دروسك قيمة جدا ، وارجو ان لا تتوقف ، ولكن حبذا لو استخدمت ميزة PHP سوف يكون قراءة الكود اسهل
مثال
procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong( Handle, GWL_STYLE, GetWindowLong( Handle, GWL_STYLE ) and not WS_CAPTION ); ClientHeight := Height; end;
تقبلوا تحياتي
هذا الموضوع مغلق.