SpeedButton

[EWeiss]

Ich würde z.B. den Winspector Spy empfehlen. Das bringt aber nichts, denn wie itsme bereits korrekt geschrieben hat:

Zitat:

Die Suche hier im Forum hat ergeben, dass SpeedButton keine "richtigen" Fenster sind, also auch kein Handle besitzen

Zitat:

Vermutlich meintest du WinSpy.

Nein Winspector Spy

gruss

[itsme]

Also zunächst vollkommen berechtigt, Entschuldigung für den blöden Titel...
WinSpy habe und kenne ich, echt genial, hier mein Daumen für den Autor
Denke mal Winspector Spy hat auch kein anderes Ergebnis, SpeedButton bleibt SpeedButton, kein Handle kein Fortschritt
Und ich habe keine Ahnung von Schnittstellen eines externen Programms, es ist extern, sonst müsste ich ja nicht fragen
Wenn nichts geht, dann klicke ich halt auf den Button, ohne wäre es eleganter gewesen, da keine Anwesenheit am Rechner erforderlich

Wie dem auch sei, es geht mir nicht um Anwesenheit oder nicht, lernen will ich
Das mit dem MausClick wäre ein Ansatz, aber da muss ich erst einmal darüber nachdenken, wie man sowas realisieren kann?
Letztendlich ist das ein fremdes Programm, da habe ich keinerlei Informationen darüber, wie gesagt nicht wichtig, aber eine Herausforderung

Aber vlt. sollte ich doch lieber "Hello World" in der 129igsten Version programmieren, da muss ich hier nicht fragen ROFL

[EWeiss]

Die frage wäre da noch wie speichert das Programm den Inhalt vom Speed Button.
Es muss ja irgendwoher die werte erhalten bzw. gegenprüfen.
Wenn die Daten in einer Ini gespeichert werden dürfte es kein Problem sein den Eintrag zu verändern.

Die frage ist nur ist diese geöffnet, hast du zugriff darauf und vor allem wie oft prüft das Teil den aktuellen wert.

Zitat:

Denke mal Winspector Spy hat auch kein anderes Ergebnis, SpeedButton bleibt SpeedButton, kein Handle kein Fortschritt

Da muss man sich auch nicht weiter drüber auslassen denn das sollte wohl klar sein ohne Handle geht da nix.
Egal welchen Spy du da nimmst.

gruss

[jaenicke]

Zitat von itsme:

Wenn nichts geht, dann klicke ich halt auf den Button, ohne wäre es eleganter gewesen, da keine Anwesenheit am Rechner erforderlich

Das klingt so als würde dir schon ein ganz normaler Makrorekorder wie dieser vielleicht reichen...

[KodeZwerg]

Habe gerade mal mit EDA nachgeschaut, alte Leier, ohne Handle isses nix.eda.jpg

[himitsu]

Die "passenden" Ereignisse muß man dann doch nur an dessen Parent schicken, also den mit einem Handle.

[itsme]

@himitsu
Also Parent ist ein TabSheet, da habe ich das Ereignis hingeschickt, trotzdem hat sich nichts getan.
Auf diesem TabSheet sind im übrigen 3 SpeedButton, selbst wenn das funktioniert hätte, wie hätte Parent dann gewusst, welcher SpeedButton gemeint ist?

Ich muss dann wohl zur Kenntnis nehmen, dass es nicht geht, Makro wäre vlt. eine Möglichkeit...
Es ging und geht natürlich auch ohne irgendeine Lösung, wieder ein wenig mit Delphi arbeiten, stand hier im Vordergrund.

[KodeZwerg]

Auf SO habe ich eine Interessante Methode gefunden, aber vermutlich nützt das auch nichts wegen der Handle Geschichte.

Delphi-Quellcode:

function FindSubcontrolAtPos(AControl: TControl; AScreenPos, AClientPos: TPoint): TControl;
var
  i: Integer;
  C: TControl;
begin
  Result := nil;
  C := AControl;
  if (C=nil) or not C.Visible or not TRect.Create(C.Left, C.Top, C.Left+C.Width, C.Top+C.Height).Contains(AClientPos) then
    Exit;
  Result := AControl;
  if AControl is TWinControl then
    for i := 0 to TWinControl(AControl).ControlCount-1 do
    begin
      C := FindSubcontrolAtPos(TWinControl(AControl).Controls[i], AScreenPos, AControl.ScreenToClient(AScreenPos));
      if C<>nil then
        Result := C;
    end;
end;

function FindControlAtPos(AScreenPos: TPoint): TControl;
var
  i: Integer;
  f,m: TForm;
  p: TPoint;
  r: TRect;
begin
  Result := nil;
  for i := Screen.FormCount-1 downto 0 do
    begin
      f := Screen.Forms[i];
      if f.Visible and (f.Parent=nil) and (f.FormStyle<>fsMDIChild) and 
        TRect.Create(f.Left, f.Top, f.Left+f.Width, f.Top+f.Height).Contains(AScreenPos) 
      then
        Result := f; 
    end;
  Result := FindSubcontrolAtPos(Result, AScreenPos, AScreenPos);
  if (Result is TForm) and (TForm(Result).ClientHandle<>0) then
  begin
    WinAPI.Windows.GetWindowRect(TForm(Result).ClientHandle, r);
    p := TPoint.Create(AScreenPos.X-r.Left, AScreenPos.Y-r.Top);
    m := nil;
    for i := TForm(Result).MDIChildCount-1 downto 0 do
    begin
      f := TForm(Result).MDIChildren[i];
      if TRect.Create(f.Left, f.Top, f.Left+f.Width, f.Top+f.Height).Contains(p) then
        m := f; 
    end;
    if m<>nil then
      Result := FindSubcontrolAtPos(m, AScreenPos, p);
  end;
end;

Das soll es einem ermöglichen in Fremd-Anwendungen das Control unter der Maus zu ermitteln. Ich habe es noch nicht getestet.