AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Transparente Clicks

Ein Thema von shebang · begonnen am 7. Feb 2020 · letzter Beitrag vom 7. Feb 2020
Antwort Antwort
Benutzerbild von Moombas
Moombas

Registriert seit: 22. Mär 2017
Ort: bei Flensburg
525 Beiträge
 
FreePascal / Lazarus
 
#1

AW: Transparente Clicks

  Alt 7. Feb 2020, 12:15
@shebang: Gibt es für diese Kombination keine Logik mit der du es ansonsten herleiten könntest? Also mit FindComponent etc.

Hat jedes Image eine eigene OnClick Prozedur oder alle die Gleiche?
Der Weg ist das Ziel aber man sollte auf dem Weg niemals das Ziel aus den Augen verlieren.

Geändert von Moombas ( 7. Feb 2020 um 12:19 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.752 Beiträge
 
Delphi 12 Athens
 
#2

AW: Transparente Clicks

  Alt 7. Feb 2020, 12:56
Folgender Code im OnClick-Event der Labels sollte gehen. Dabei wird angenommen, daß die Labels und die darunter liegenden Images denselben Parent haben.

Delphi-Quellcode:
type
  TImageHack = class(TImage);

procedure TForm487.Label1Click(Sender: TObject);
var
  ctrl: TControl;
  lbl: TLabel;
begin
  lbl := Sender as TLabel;
  lbl.Enabled := False; // damit es bei ControlAtPos nicht gefunden wird
  try
    ctrl := lbl.Parent.ControlAtPos(lbl.ClientRect.CenterPoint, False, False, False);
    if ctrl is TImage then
      TImageHack(ctrl).Click;
  finally
    lbl.Enabled := True;
  end;
end;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
shebang

Registriert seit: 7. Feb 2020
151 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: Transparente Clicks

  Alt 7. Feb 2020, 13:20
Danke für die Antworten.

Die Images benutzen alle das gleiche OnClick, insofern sollte die Variante meines Vorposters funktionieren. Ich teste das sofort.

Edit:
Klappt einwandfrei, nur das ClientRect.CenterPoint hab ich durch BoundsRect.CenterPoint ersetzt, damit wir im richtigen Referenzsystem arbeiten.

Geändert von shebang ( 7. Feb 2020 um 14:05 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:50 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz