PCreateStruct(Message.LParam)^
2 отговора
79 прегледа
PCreateStruct(Message.LParam)^
Prihvashtam WM_CREATE i se opitvam da razbera kakuv e prozoreca , kojto shte bude sazdaden....
Chudq se kade barkam , no ne moga da polucha nito imeto (predpolagam captiona) na prozoreca , nito Classname , nito nishto...
nqkoj da ima parche kod ili ideja po vaprosa ?
spored documentaciata v LParam bi trebvalo da se namira pointer kam CREATESTRUCT , obache v sashtoto vreme v nego az namiram koda na soubshtenieto - t.e. WM_CREATE v sluchaja.
maj neshto propuskam ?
______________
Щом не върви от първия път, значи има шанс
Chudq se kade barkam , no ne moga da polucha nito imeto (predpolagam captiona) na prozoreca , nito Classname , nito nishto...
nqkoj da ima parche kod ili ideja po vaprosa ?
spored documentaciata v LParam bi trebvalo da se namira pointer kam CREATESTRUCT , obache v sashtoto vreme v nego az namiram koda na soubshtenieto - t.e. WM_CREATE v sluchaja.
maj neshto propuskam ?
______________
Щом не върви от първия път, значи има шанс
Редактирано от LongJohn на
Re: PCreateStruct(Message.LParam)^
Po dobre obiasni prakticheski kakvo prvish / syzdavash...
Predi vreme imah podoben problem s onCreate na MDI
Predi vreme imah podoben problem s onCreate na MDI
Re: PCreateStruct(Message.LParam)^
Edin priemeren kod ...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
PCREATESTRUCT = ^CREATESTRUCT;
TForm1 = class(TForm)
private
{ Private declarations }
public
procedure MyProc(var Msg:TMessage);message WM_CReATE;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.MyProc(var Msg: TMessage);
var P:PCREATESTRUCT;
begin
P:= Pointer(Msg.LParam);
ShowMessage(P.lpszName);
end;
end.
REZULTATA E MESSAGEBOX s "FORM1"
Osven ako tarsish neshto drugo !?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
PCREATESTRUCT = ^CREATESTRUCT;
TForm1 = class(TForm)
private
{ Private declarations }
public
procedure MyProc(var Msg:TMessage);message WM_CReATE;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.MyProc(var Msg: TMessage);
var P:PCREATESTRUCT;
begin
P:= Pointer(Msg.LParam);
ShowMessage(P.lpszName);
end;
end.
REZULTATA E MESSAGEBOX s "FORM1"
Osven ako tarsish neshto drugo !?
Редактирано от x-man на