Ereignis bei message abfangen geht nicht

[KuH_am_SchuH]

warum geht das hier denn nicht ??? :

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,shellapi,ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var
msg : TMSG;


procedure TForm1.Button1Click(Sender: TObject);
begin
sendmessage(application.Handle,WM_SyScommand,sc_Screensave,0)
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if msg.message = WM_SYSCOMMAND then begin
 shellexecute(handle,nil,'notepad',nil,nil,SW_SHOWNORMAL)
 enD;
 end;

end.

helft mir bitte^^

[Daniel]

Hallo,

zwei Bitten:

(1) Geben Deinem Beitrag einen aussagekräftigen Titel. Viele Dinge gehen nicht. ;-)
(2) Bechreibe, was Dein Code geplanterweise machen soll und was er tatsächlich tut. Das macht es für uns drastisch leichter, Dir eine brauchbare Hilfestellung zu geben.

:cheers:

[mkinzler]

Was willst du eigentlich machen?

Du hast zawr eine variabel für die Message, es findet aber keien Instantiierung statt.

[Nils_13]

Nun die Standart-Quälfrage :mrgreen: : Was geht nicht.

//der rote Kasten hat gefehlt, mist

[KuH_am_SchuH]

ich will einfach ,dass wenn WM_SYSCOMMAND gesendet wird ,dass der notepad startet.
ich hab keine bestimmten absichten ich probier nurn bissl rum ;).


aber das isses ja : nix passiert^^

[leddl]

Und immer noch is der Titel nich geändert :roll:

Kann es sein, daß du den Timer eventuell nicht aktiviert hast? ;)

//Edit: Auf jeden Fall dürfte das aber sowieso schief gehen, da msg nirgendow instanziiert wird - wie mkinzler ja schon festgestellt hat.

[KuH_am_SchuH]

doch den hab ich natürlich aktiviert ^^

und wie ändert man den titel^^????

[Airblader]

http://www.delphipraxis.net/template.../icon_edit.gif :roll:

[Nils_13]

Zitat:

Zitat von KuH_am_SchuH

doch den hab ich natürlich aktiviert ^^

und wie ändert man den titel^^????

Indem du den ersten Beitrag editierst (edit) und in dem Titel-edit den Titel anpasst.

[leddl]

Zitat:

Zitat von KuH_am_SchuH

doch den hab ich natürlich aktiviert ^^

Sicher? Und du bekommst keine AV?

[KuH_am_SchuH]

es passiert garnichts :(

[SirThornberry]

im Moment fängst du gar keine Message ab, das würde so funktionieren:

Delphi-Quellcode:

private/protected/public
  procedure MessageProcedure(var YourMesageVar: TYourMessageTyp); message yourmessage;

konkret könnte das im allgemeinen Fall so aussehen

Delphi-Quellcode:

private
  procedure FWM_SYSCOMMAND(var AMsg: TMessage); message wm_syscommand;

[KuH_am_SchuH]

achsooooo thx ;)

[KuH_am_SchuH]

bei mir sagt delphi dass es bei

Delphi-Quellcode:

procedure FWM_SYSCOMMAND(var AMsg: TMessage); message wm_syscommand;

message am schluss nicht kennt... was nun^^?

[KuH_am_SchuH]

was nun was nun^^?

[SirThornberry]

warum zitierst du dich selbst? und warum postest du 3 mal hintereinander? Den "Edit"-Button solltest du doch inzwischen kennen. Das was du machst nennt sich pushen und ist nur nach 24 Stunden erlaubt. Bei dem was du zuerst geschrieben hast, fehlt eindeutig das Leerzeichen. Und das Message darf nur im Deklarationsteils sein

Delphi-Quellcode:

private 
  procedure FWM_SYSCOMMAND(var AMsg: TMessage); message wm_syscommand;
[...]
procedure TYourClass.FWM_SYSCOMMAND(var AMsg: TMessage);
begin
  inherited;
end;