Hallo zusammen,
ich möchte eigene Buttons erstellen und habe folgende Probleme:
Entweder ich leite von TButton bzw. TButtonControl ab, dann habe ich jedoch kein Canvas zum Zeichnen. Überschreiben von Repaint funktioniert auch nicht.
Oder ich leite von TWinControl ab. Dann habe ich ein Focus-Problem, welches alle Beispiel-Buttons auch haben, die ich gefunden habe. Drücke ich Enter auf den Button, wird die im Objektinspektor eingetragene Proc aufgerufen, die nur eine InputBox anzeigt. Bestätige ich die Inputbox mit der Maus, funzt alles. Bestätige ich mit Enter, wird über KeyUp des Button !!! (da dieser trotz Inputbox noch als aktive Kompo gilt) Click und somit erneut die Inputbox aufgerufen. Also eine Endlosschleife der Inputbox bis ich mit der Maus oder ESC beende. TButton führt daher FActive ein, komischerweise klappt das bei meiner Ableitung nicht.
Hat jemand einen Tipp?
Delphi-Quellcode:
TTestBtn = class(TCustomControl)
private
FActive : boolean;
procedure CMFocusChanged(var Message: TCMFocusChanged); message CM_FOCUSCHANGED;
procedure KeyUp(var Key: Word; Shift: TShiftState); override;
protected
procedure Paint; override;
public
published
property OnClick;
end;
procedure TTestBtn.Paint;
begin
inherited;
Canvas.Brush.Style := bsSolid;
Canvas.Brush.Color := clRed;
Canvas.RoundRect(0,0,width-1,height-1,6,6);
// u.s.w.
end;
procedure TTestBtn.CMFocusChanged(var Message: TCMFocusChanged);
begin
FActive := Message.Sender = self;
end;
procedure TTestBtn.KeyUp(var Key: Word; Shift: TShiftState);
var Form : TCustomForm;
begin
if (Key = 13) and FActive then
begin
FActive:= false;
// -- auch ActiveControl zu ändern bringt nichts --
//Form := GetParentForm(Self);
//if Form <> nil then
// Form.ActiveControl := nil;
Key := 0;
Click;
//Form.ActiveControl := Self;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
GepBtn1 := TTestBtn.Create (Form1);
with GepBtn1 do
begin
Left := 50;
Top := 150;
Height := 30;
Width := 100;
TabStop := true;
Parent := Form1;
Name := 'TestBtn1';
OnClick := TestButton1Click;
end;
end;
procedure TForm1.TestButton1Click(Sender: TObject);
var S : string;
begin
S := InputBox('Test Btn', 'Text:', '');
end;