Miksi Tämä koodi ei toimi?

Wmessage

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?

1

378

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • dlp

      type
      form1 = class(tform)
      ...
      private

      procedure AppMessage(var Msg: TMsg; var Handled: Boolean); //lisää tämä
      ...

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Kerro kaivatustasi jotakin mukavaa.

      Itse aloitan: hyvännäköinen ja ahkera ❤️‍🔥
      Ikävä
      116
      2141
    2. Missä päin suomea kaivattusi asustelee?

      Oma kaivattuni (mies(J) asuu Uudenmaan läänissä.
      Ikävä
      89
      1591
    3. Donald Trump joutui ammutuksi vaalitilaisuudessaan

      Näin se näyttää olevan, että Trumpilla on niin kannattajia kuin vastustajiakin. Hengissä käveli pois, ilmeisesti jokin
      Maailman menoa
      246
      1548
    4. Koulutus ja parisuhde

      Haluatko että sun kumppani on korkeasti koulutettu?
      Ikävä
      130
      1101
    5. Tietääkö kaivattusi

      Että kaipaat häntä?
      Ikävä
      61
      1074
    6. Paljonko on sinun ja kaivattusi välimatka?

      Kuinka paljon on matkaa hänen syliin?Vastaan 165km 😪💔🚙
      Ikävä
      65
      1017
    7. Minä haluan sinut

      Rakkaakseni... Vain sinut kukaan muu ei kelpaa olet sydämeni valittu rakas rakastan sinua. 💗
      Ikävä
      35
      1016
    8. Hurraa! Olen alkanut tulla järkiini.

      Minulla on vielä kuukausi aikaa yrittää unohtaa sinut, mies. Sitten kun tapaamme, en tarvi teeskennellä neutraalisuutta,
      Ikävä
      68
      932
    9. Tänään rohkaisin

      Mieleni (tai siis eilen jos tarkkoja ollaan ja kävelin ihan sun kodin ohi molemmin puolin 😂😆🤭 katelin tarkkaan ympäri
      Ikävä
      69
      881
    10. Mitäs mä oon sanonnu

      "Kaupungissa asuminen lisää tutkimusten mukaan mielenterveyden ongelmia." https://www.iltalehti.fi/terveysuutiset/a/24b
      Sinkut
      183
      880
    Aihe