Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by stahli,
13. Jul 2015
Schau mal, ob Dir das etwas bringt: http://www.delphipraxis.net/176730-komponentenentwicklung-led-ueber-tshape.html
Ansonsten kleine Schritte versuchen und hier möglichst konkrete Fragen stellen. Je genauer die Frage ist, desto besser kann die Hilfe aussehen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by stahli,
8. Jul 2015
Ich denke, ohne eigene Komponente wirst Du nichts erreichen.
Mal ein paar Rückfragen:
- Nutzt Du D5 Prof?
- Hast Du schon versucht, eine eigene Komponente abzuleiten und wie weit bist Du gekommen?
So schwierig ist das im Grunde nicht. Vielleicht können wir Dich auf den Weg bringen...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by stahli,
27. Mär 2008
Ok danke!
Eine Doku habe ich in der Delphi-Hilfe umsonst gesucht.
-> HTTRANSPARENT = -1
Damit funktioniert das perfekt :-)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by stahli,
27. Mär 2008
Hallo Muetze1,
danke dafür.
Die Methode wird ausgeführt:
procedure TPanelHead.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited;
Beep;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by stahli,
27. Mär 2008
Ich weiß noch nicht recht, was Du genau meinst.
Die TLine funktioniert so:
TLine = class(TPaintBox)
private
FLineMode: TLineMode;
FFromX: Integer;
FFromY: Integer;
FToX: Integer;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by stahli,
27. Mär 2008
Mit der TPaintBox ging das wunderbar...
Wie kann ich das auch für ein TPanel machen?
CMHitTest wird bei meiner abgeleitetetn Komponente nicht aufgerufen.
Ein Klick soll sich direkt auf dessen Parent beziehen.
Danke
Stahli
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by stahli,
4. Jan 2008
Super Klasse!
Danke!
procedure CMHitTest(var Msg: TWMMouse); message CM_HITTEST;
procedure TLine.CMHitTest(var Msg: TWMMouse);
begin
inherited;
{
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by stahli,
4. Jan 2008
Hallo Alle,
ich habe eine Komponente von TPaintBox abgeleitet, die einige Linien zeichnet.
TLineMode = (lmNone, lmLTRTRB, lmLBRBRT, lmRTLTLB, lmRBLBLT);
TLine = class(TPaintBox)
private
FLineMode: TLineMode;