Kategorie: Borland C++ Builder

// *.cpp:

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    UnregisterHotKey(Handle, HotKeyIdentifier_uint); //HotKey löschen
    GlobalDeleteAtom(HotKeyIdentifier_uint); //HotKey Identifier löschen
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    HotKeyIdentifier_uint = GlobalAddAtom("RollenTaste");
    RegisterHotKey(Handle, HotKeyIdentifier_uint, 0, VK_SCROLL); //Hotkey registrieren.
    // statt 0 kann auch MOD_ALT, MOD_CONTROL oder MOD_SHIFT stehen, falls Taste "Rollen" zusammen mit "Shift", "Strg" oder "Alt" gedrückt werden soll
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WMHotKey(TMessage &Msg)
{
    TForm::Dispatch(&Msg);
    ShowMessage("Rollen Taste gedrückt");
}

// *.h:

class TForm1 : public TForm
{
    __published: // Von der IDE verwaltete Komponenten
    TLabel *Label1;
    void __fastcall FormDestroy(TObject *Sender);
    void __fastcall FormCreate(TObject *Sender);
    private: // Anwender-Deklarationen
    void __fastcall WMHotKey(TMessage &Msg);
    unsigned int HotKeyIdentifier_uint;
    public: // Anwender-Deklarationen
    __fastcall TForm1(TComponent* Owner);

    BEGIN_MESSAGE_MAP

        MESSAGE_HANDLER(WM_HOTKEY, TMessage, WMHotKey)

    END_MESSAGE_MAP(TForm)
};

int iWert = StrToInt("0xFF");

// Im OnKeyPress-Ereigniss eines Edit-Feldes:

if ((Key<'0' || Key->'9') && Key != VK_BACK) Key=0; //VK_BACK zum löschen nicht vergessen :)

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    HMENU hSystemMenu;

    // Hole das Handle auf eine Kopie des Systemmenüs
    hSystemMenu = GetSystemMenu(Handle, FALSE);

    // Move und Size-Eintrag aus dem Systemmenü löschen
    DeleteMenu(hSystemMenu, SC_SIZE, MF_BYCOMMAND); 
    DeleteMenu(hSystemMenu, SC_MOVE, MF_BYCOMMAND);
}

int sbwidth = GetSystemMetrics(SM_CXVSCROLL);

// nur 1 Eintrag:

ListBox1->ItemIndex = Nummer //Nummer: 0 bis x

// mehrere Einträge:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    ListBox1->MultiSelect = true; //wichtig!!
    ListBox1->Items->Clear();
    ListBox1->Items->Add("Eintrag1");
    ListBox1->Items->Add("Eintrag2");
    ListBox1->Items->Add("Eintrag3");
    ListBox1->Selected[0] = true;
    ListBox1->Selected[2] = true;
}

void __fastcall TForm1::FormClick(TObject *Sender)
{
    TPoint P = Mouse->CursorPos;
    P = Form1->ScreenToClient(P);
    Label1->Caption = "x: "+IntToStr(P.x);
    Label2->Caption = "y: "+IntToStr(P.y);
}

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
    ProgressBar1->Parent = StatusBar1; //Statusbar, auf dem der Progressbar gezeichnet werden soll
    ProgressBar1->Top = 2;             //Position im Statusbar
    ProgressBar1->Left = 2;
}

// 1x den Zufallszahlengenerator initialisieren (anhand der akt. Systemzeit):
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
    Randomize(); //Zufallszahlengenerator initialisieren
}

// danach können mit random(Bereich) Zufallzahlen von 0 bis Bereich-1 erzeugt werden:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int iZWert = random(100); //Zufallszahl zwischen 0-99 erzeugen
}

void __fastcall TForm1::OpenDialog1Show(TObject *Sender)
{
    // der Öffnen-Knopf hat die Kennung eines OK-Buttons
    HWND hDialog = GetParent(OpenDialog1->Handle);
    HWND button = GetDlgItem(hDialog, ID_OK); //OK-Button

    // neuen Text setzen (nach gutdünken)
    SetWindowText(button, "Löschen");
}