Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by R2009,
8. Jan 2010
Hi,
bin bis jetzt immer davon ausgegangen, dass in msg.message SET_LNG_CMD steht.
Man lernt eben nie aus.
Grüsse
Rainer
Vielen Dank
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by R2009,
8. Jan 2010
Hi Alaitoc,
das mit onmessage hab ich mittlerweile auch bemerkt.
leider funktioniert dein Vorschlag auch nicht.
procedure TForm1.GetMessages(var msg: TMsg);
begin
if msg.message = SET_LNG_CMD then
begin
ShowMessage('hallo');
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by R2009,
8. Jan 2010
Hi Alaitoc,
hab kapiert was du meinst aber das funktioniert überhaupt nicht.
Application.OnMessage:=GetMessages;
Compiler meckert: unterschiedliche Parameterliste.
Grüsse
rainer
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by R2009,
8. Jan 2010
Hi Alaitoc,
da meckert der Compiler "unbekannte messagelist"
Aber wo hast du mir Code geschickt?
Es müsste doch aber eigentlich so sein dass getmessages bei jeder message durchlaufen wird oder?
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by R2009,
8. Jan 2010
Hi Alaitoc,
das handled gibt doch nur an die messagequeue weiter, dass das Ereigniss abgearbeitet ist und damit erledigt.
Das kann nicht das Problem sein. Soweit komm ich erst garnicht.
Grüsse
rainer
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by R2009,
8. Jan 2010
Hi,
hab ich alles probiert. Ich häng mal meinen Quelltext an. das Ganze ist mit D7 prof erstellt.
Grüsse
rainer
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by R2009,
8. Jan 2010
Hi Uwe,
hatte ich alles auch schon probiert. Funktioniert nicht.
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;text:ansistring;
begin
for i:=0 to memo1.lines.count-1 do
begin
SendMessage(strtoint(memo1.lines.Strings),SET_LNG_CMD,1,0);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by R2009,
8. Jan 2010
Hi,
ich habe das ganze protokolliert:
procedure TForm1.GetMessages(var msg: TMsg; var handled: boolean);
var a:string;
begin
memo3.Lines.Add(inttostr(msg.message));
if msg.message = SET_LNG_CMD then
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by R2009,
8. Jan 2010
Hi,
geht auch aus einer anderen Form nicht:
Grüsse
rainer
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by R2009,
8. Jan 2010
Hi,
Hab die Handles verglichen, sind die gleichen.
Das Problem ist, dass die Message überhaupt nicht ankommt, also TForm1.GetMessages garnicht aufgerufen wird.
Allerdings kommt meine Message aus der gleichen Form...Vielleicht ist das das Problem.
Grüsse
Rainer
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by R2009,
8. Jan 2010
Hi,
In memo1 stehen die Handles aller Fenster der Applikation. Ich versuche an all diese Fenster eine Message zu schicken.
Nur kommt sie da nie an.
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin //cardinal(memo1.lines.Strings)
for i:=0 to 1 do SendMessage(cardinal(memo1.lines.Strings),SET_LNG_CMD,0,0);
end;