beim wieder aktivieren klick auf Bild auslösen ?

[Gege]

vielen Dank soweit für Eure Hinweise
ich bin dadurch auch schon ein Schritt weiter ..
aber irgendwie löst es mir das Event schon nur beim drüber gehen mit Maus aus ..

so wie ein MouseOver im WEB ..

hab ich da was falsch ? .. ich hatte mich dann nach weiten suchen an den post etwas orientiert..
und hab nur das

Code:

OnActivate:=ApplicationActivate;

genommen..
und dann

Code:

procedure Tform1.ApplicationActivate(Sender: TObject);

aber so richtig ist da die Anwendung da ja noch nicht aktiv ..
aktiv wird sie ja erst beim drauf klicken ..

@himitsu das Form OnActivate hab ich schon probiert ..
da kommt er nicht rein ..
ich denk weil es eigentlich auch nicht zu sehen ist(transparent)
und wird deswegen ja auch nicht aktiviert..

[himitsu]

Zitat von Gege:

@himitsu das Form OnActivate hab ich schon probiert ..
da kommt er nicht rein ..
ich denk weil es eigentlich auch nicht zu sehen ist(transparent)
und wird deswegen ja auch nicht aktiviert..

Nee, ich denk dann eher, daß dieses Form.OnActivate wohl doch nur beim Fokuswechsel der Fenster innerhalb der Anwendung aufgerufen wird.

Wenn ich bei einer nicht-aktiven Anwendung auf ein TImage klicke, dann kommen bei mir diese Ereignisse rein:
Image1.OnMouseActivate // k.A. seit wann es Diese gibt -> WM_MOUSEACTIVATE CM_MOUSEACTIVATE
Form.OnMouseActivate
ApplicationEvents1.OnActivate
Image1.OnClick

Also OnClick wird ebenfalls aufgerufen.
Wenn das bei dir nicht ist, dann muß sich irgendwas verändert haben, entweder durch dich oder in der VCL, gegenüber einer ganz stinknormalen Standardanwendung (XE3/XE7).

Und bei Allem, was nicht Standard ist, da kommt man ohne eine reproduzierbares Testszenario oder eine Testanwendung nicht umher.

TestCode:

Delphi-Quellcode:

procedure TForm24.ApplicationEvents1Activate(Sender: TObject);
begin
  Memo1.Lines.Add('ApplicationEvents1.OnActivate');
end;

procedure TForm24.ApplicationEvents1Deactivate(Sender: TObject);
begin
  Memo1.Lines.Add('ApplicationEvents1.OnDeactivate');
end;

procedure TForm24.FormActivate(Sender: TObject);
begin
  Memo1.Lines.Add('Form.OnActivate');
end;

procedure TForm24.FormClick(Sender: TObject);
begin
  Memo1.Lines.Add('Form.OnClick');
end;

procedure TForm24.FormMouseActivate(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y, HitTest: Integer;
  var MouseActivate: TMouseActivate);
begin
  Memo1.Lines.Add('Form.OnMouseActivate');
end;

procedure TForm24.FormMouseEnter(Sender: TObject);
begin
  //Memo1.Lines.Add('Form.OnMouseEnter');
end;

procedure TForm24.FormMouseLeave(Sender: TObject);
begin
  //Memo1.Lines.Add('Form.OnMouseLeave');
end;

procedure TForm24.Image1Click(Sender: TObject);
begin
  Memo1.Lines.Add('Image1.OnClick');
end;

procedure TForm24.Image1MouseActivate(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y, HitTest: Integer;
  var MouseActivate: TMouseActivate);
begin
  Memo1.Lines.Add('Image1.OnMouseActivate');
end;

procedure TForm24.Image1MouseEnter(Sender: TObject);
begin
  //Memo1.Lines.Add('Image1.OnMouseEnter');
end;

procedure TForm24.Image1MouseLeave(Sender: TObject);
begin
  //Memo1.Lines.Add('Image1.OnMouseLeave');
end;

[Gege]

aaarg ich hab den Fehler gefunden ..

das ist in meiner TForm1.Image1MouseMove procedure

um das Form zu verschieben (BILD ohne Form) hab ich da drinnen

Code:

  ReleaseCapture;
  Form1.Perform(WM_SYSCOMMAND, $F012, 0);

hmmm und das wirft alles etwas ducheinander ..

sonst klappt das auch mit den application.onactivate

wie löse ich das denn jetzt nur das als combi .. *grübel*

[hathor]

Mit einer Maus-Bewegung das Fenster zu aktivieren ist einfach:

Delphi-Quellcode:

procedure TForm1.Image1MouseEnter(Sender: TObject);
begin
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;

[Gege]

ich hab es gelöst !

ich hab jetzt in der Image1MouseMove

Code:

if Self.Active then
begin
//Fängt alle Mausereignisse ab
  ReleaseCapture;
  Form1.Perform(WM_SYSCOMMAND, $F012, 0);
end;

dadurch führt er mir auch das OnActivate richtig aus und das MouseMove auch ..

super Danke allen Mitdenkern und Hinweise

[BadenPower]

Zitat von Gege:

Code:

if Self.Active then
begin
//Fängt alle Mausereignisse ab
  ReleaseCapture;
  Form1.Perform(WM_SYSCOMMAND, $F012, 0);
end;

Spätestens wenn Du eine weitere Instanz oder die Form selbst erzeugst, dann wirst Du einen Fehler erhalten.

Nimm das "Form1." heraus und eretze es durch "Self.", denn Deine "Form1" muss nicht immer "Form1" heissen.

[Gege]

Hallo BadenPower,
da hast Du Recht .. so etwas sollte man sich gleich angewöhnen
es gibt da immer wieder Sachen die sieht man selbst auch nach ein paar Wochen ..

da würde man auch einiges dann wieder anders machen

Danke für Hinweis