Döküman Ekle | Künye | Reklam | Bize Ulaşın | Üyelik

16.04.2024

Anasayfa

C/C++

Visual C#.NET

ASP / ASP.NET

Component

Delphi

Unix/Linux

Java Script

PHP

Perl

Visual Basic / VB.NET

Assembly

OpenGL

Yapay Zeka

Veritabaný Sistemleri

Yazýlým Mühendisliði

Elektronik

IIS

e-turka Forum

Türkiye'nin Bilgisayar ve Elektronik Konulu Tartışma Platformuna Katılmak İçin...

Duyurular
MsgDlg Caption Deðiþtirme

27 Temmuz 2005 14:45

MsgDlg ile açýlan pencerenin caption ve butonlarýný deðiþtirmek isterseniz bu kodu kullanabilirsiniz.

fonksiyon
int myMessageDlg(AnsiString caption, AnsiString msg, TMsgDlgType dlgType, TMsgDlgButtons dlgButtons, TStringList *newCaptions)
{
    int captionIndex = 0;
    TForm *aMsgDlg = CreateMessageDialog(msg, dlgType, dlgButtons);
    aMsgDlg->Caption = caption;
    for(int i=0; i<aMsgDlg->ComponentCount; i++)
        if(aMsgDlg->Components[i]->ClassNameIs("TButton"))
            dynamic_cast<TButton *>(aMsgDlg->Components[i])->Caption = newCaptions->Strings[captionIndex++];

    return aMsgDlg->ShowModal();
}

kullanýmý
void __fastcall TmainForm::FormClose(TObject *Sender, TCloseAction &Action)
{
    int selectedButton;

    TStringList *tmpStr = new TStringList();
    tmpStr->Add("Evet");
    tmpStr->Add("Hayýr");

    selectedButton = myMessageDlg("Sanane", "Program Kapatýlacaktýr. Emin misiniz?", mtWarning , TMsgDlgButtons() << mbYes << mbNo, tmpStr );

    if (selectedButton == mrYes)
        Application->Terminate();
    else if(selectedButton == mrNo)
        Action = caNone;
}

Bu Döküman Toplam 5502 Defa OkunmuşturGönderen : memin
Bu Haberi

Yazdır

Arkadaşına Gönder

Yorum Ekle

En Çok Okunanlar
En Son Eklenenler


IIS 6.0 SSL Sertifika Yukleme


Sað týklamayý geçersiz kýlma


Assembly ile dosyalama


Çalýþan uygulamayý kapatma


PIC-PC seri haberlesme(kesmeli)


PIC'ten PC'ye seri portan veri gönd.


MsgDlg Caption Deðiþtirme


Multiple Select Kontrolü


Javascript ile Radio Button Kontrolü


JMenuBar Kullanýmý

Anket
Ne olarak çal??mak istersiniz?
Proje Müdürü
Sistem Geliþtirme Uzmaný
Yazýlým Mühendisi
Sistem Yöneticisi

www.e-turka.com © 2003 - Bütün hakları saklıdır l Tel: 0 (332) 241 33 81 l E-mail: info@e-turka.com
Bu site en iyi 800x600 ve üzeri çözünürlükte görüntülenebilir.