Seuraava koodinpätkä on suoraan delphin helpistä mutta aina kun koitan kääntää sen niin valittaa tuota kohtaa jonka olen tähdellä merkannut*...
..................................................................................................
The following code handles a custom messagethat the application sends to itself when a file is ready for reading.
const
WM_FILEREADY = WM_USER 2000;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;*
end;
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message = WM_FILEREADY then
begin
Memo1.Lines.LoadFromFile(StrPas(PChar(Msg.lParam)));
Handled := True;
end;
{ for all other messages, Handled remains False }
{ so that other message handlers can respond }
end;
..................................................................................................
Kaikki on kirjoitettu niinkuin pitää mutta aina valittaa tuota Appmessage kohtaa, pitääkö siitä tehdä muuttuja vai miten toimin jotta saan hanskattua nämä messaget?
..................................................................................................
The following code handles a custom messagethat the application sends to itself when a file is ready for reading.
const
WM_FILEREADY = WM_USER 2000;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;*
end;
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message = WM_FILEREADY then
begin
Memo1.Lines.LoadFromFile(StrPas(PChar(Msg.lParam)));
Handled := True;
end;
{ for all other messages, Handled remains False }
{ so that other message handlers can respond }
end;
..................................................................................................
Kaikki on kirjoitettu niinkuin pitää mutta aina valittaa tuota Appmessage kohtaa, pitääkö siitä tehdä muuttuja vai miten toimin jotta saan hanskattua nämä messaget?
Vastaukset 1
Vanhimmat
type
form1 = class(tform)
...
private
procedure AppMessage(var Msg: TMsg; var Handled: Boolean); //lisää tämä
...