هل يوجد مكون يقوم بإضافة ستايل لبرنامج ؟

[SMP3]

ان أردت استخدام ال Show بدل ShowModel

PHP كود :

library Project2;

uses
  System.SysUtils,
  Winapi.Windows,
  System.Classes,Themes,Styles,
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

var
  dwTemp : DWORD;
  ThreadHanle:Thandle;

procedure FuncStart;
begin
 // Do Something .. !!
end;
procedure ShowDlg ;stdcall  ;
begin
  Form2 := TForm2.Create(nil);
  Form2.Show;
end;

procedure DllMain(reason:integer);
begin
  Case reason of
    DLL_PROCESS_ATTACH:
    begin
    Form2:=nil;
    ThreadHanle :=CreateThread(nil,0,@FuncStart,nil,0,dwTemp);
    end;

    DLL_PROCESS_DETACH:
    begin
    FreeAndNil(Form2);
    CloseHandle(ThreadHanle);
    end;
  End;
end;

exports ShowDlg ;

begin
TStyleManager.SetStyle(TStyleManager.LoadFromFile(ExtractFileDir(GetModuleName(HInstance)) + '\TurquoiseGray.vsf'));

Dllproc := @DllMain;
DllMain(DLL_PROCESS_ATTACH);

end. 


..

PHP كود :

procedure ShowDlg ;stdcall  ;external 'Project2.dll' name 'ShowDlg';

procedure TForm1.ButtonLoadLibClick(Sender: TObject);
begin
LoadLibrary('Project2.dll');

end;

procedure TForm1.ButtonShowDlgClick(Sender: TObject);
begin
  ShowDlg;
end; 


-------------------------
بالنسبة لاستعمال ال Dll مع دلفي فأعتقد أنه يوجد موضوع في دورة دلفي للعرب
-----------------------
اطلع على الدرس و تجنب استخدام أسلوب مبرمجي ++C .. لأنك ستدخل في متاهات كثيرة
و بالنسبة لل Thread , فنصيحة اليك أخي .. حاول ألا تستخدمه الا في الأمور الجدية .. لانه يمكن يسبب مشاكل كثيرة
اطلع أولا على دروس ال Thread وحاول تطبيقها ثم استعمله عند الحاجة .