BorlandTalk.com

Mike King · Guest

I'm creating a control that derives from TSpeedButton. When the button is
down and when the user double-clicks the button, I want a TEdit control to
appear in the center of the TSpeedButton. This TEdit control with allow the
user to edit the caption of the TSpeedButton. When the TEdit control is on
the screen, I don't want the user to be able to click on any other
control/form in the application. I have been able to lock the keyboard
input to the TEdit but not Mouse input. Below is a complete working example
of the problem. Double-click a TSpeedButton then try double-clicking
another TSpeedButton. I don't want to be able to click the other
TSpeedButton.

P.S. I know the code is ugly... it's prototype code.

########## BEGIN FORM'S DFM ###########
object Form1: TForm1
Left = 209
Top = 171
Width = 366
Height = 222
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object SpeedButton1: TSpeedButton
Left = 44
Top = 28
Width = 81
Height = 37
GroupIndex = 1
Down = True
OnDblClick = SpeedButtonDblClick
end
object SpeedButton2: TSpeedButton
Left = 44
Top = 76
Width = 81
Height = 37
GroupIndex = 1
OnDblClick = SpeedButtonDblClick
end
end
########## END FORM'S DFM #############

########## BEGIN FORM'S CPP ###########
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButtonDblClick(TObject *Sender)
{
TSpeedButton* pSB = (TSpeedButton*) Sender;
TCEdit* pEdit = new TCEdit(pSB);

pEdit->Parent = pSB->Parent;
pEdit->SpeedButton = pSB;

pEdit->BevelKind = bkFlat;
pEdit->Width = pSB->Width * 0.8;
pEdit->Top = pSB->Top + pSB->Height / 2 - pEdit->Height / 2;
pEdit->Left = pSB->Left + pSB->Width / 2 - pEdit->Width / 2;

pEdit->OnKeyPress = EditKeyPress;
pEdit->OnExit = EditExit;
pEdit->Text = pSB->Caption;

pEdit->SetFocus();
SetCapture(pEdit->Handle);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::EditKeyPress(TObject *Sender, Char &Key)
{
if (Key == 13 /*Enter*/)
{
TCEdit* pEdit = (TCEdit*) Sender;
TSpeedButton* pSB = (TSpeedButton*) pEdit->SpeedButton;

ReleaseCapture();
pSB->Caption = pEdit->Text;
pEdit->Parent = NULL;
}
else if (Key == 27 /*Esc*/)
{
TCEdit* pEdit = (TCEdit*) Sender;

ReleaseCapture();
pEdit->Parent = NULL;
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::EditExit(TObject *Sender)
{
TCEdit* pEdit = (TCEdit*) Sender;
pEdit->SetFocus();
}
//---------------------------------------------------------------------------
########## END FORM'S CPP #############

########## BEGIN FORM'S H #############
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TSpeedButton *SpeedButton1;
TSpeedButton *SpeedButton2;
void __fastcall SpeedButtonDblClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);

void __fastcall EditKeyPress(TObject *Sender, Char &Key);
void __fastcall EditExit(TObject *Sender);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

class TCEdit : public TEdit
{
private:
TSpeedButton* m_SB;
public:
__fastcall TCEdit(TComponent* Owner);
void __fastcall CreateParams(TCreateParams &Params);

__property TSpeedButton* SpeedButton = { read=m_SB, write=m_SB };
};

//---------------------------------------------------------------------------
__fastcall TCEdit::TCEdit(TComponent* Owner) : TEdit(Owner)
{
m_SB = NULL;
}
//---------------------------------------------------------------------------

void __fastcall TCEdit::CreateParams(TCreateParams &Params)
{
TEdit::CreateParams(Params);
Params.Style = Params.Style | ES_CENTER;// ES_MULTILINE;
}
//---------------------------------------------------------------------------
########## END FORM'S H ###############

Remy Lebeau (TeamB) · Guest

"Mike King" <emailMK (AT) excite (DOT) com> wrote

Mike King · Guest

"Remy Lebeau (TeamB)" <no.spam (AT) no (DOT) spam.com> wrote