SuiMsgDialog1 bileşen kullanımı

[vedatkaba]

Suipack bileşen setinde bulunan SuiMsgDialog bileşenini kullanan arkadaşlar varsa bilahaere bu bileşende Buttonların kontrolünün nasıl yapıcaz ya.Akşam uğraş uğraş bir türlü beceremedik, denemedik yol kalmadı. birde sağ üst köşesinde çıkan bir kapat butonu var (çarpı işaretlli) onuda yok etmem lazım..

Kod: Tümünü seç

SuiMsgDialog1.showmodal;///////////////////////bundan sonrası neydi ???

Kolay gelsin.

[kadirkurtoglu]

hocam ben çok kullandım bu sui yi ancak hiç tavsiye etmiyorum bunun yerine
neyse onu cevap verdikten sonra yazacam.

hocam sui mesaj dialog kutuları 3 adet buton bulundurabiliyor yani diğer mesaj pencereleri gibi.

Kod: Tümünü seç

SuiMssageDialog1.ButtonCount := 2;
SuiMessageDialog1.Button1Caption := 'Evet';
SuiMessageDialog1.Button2Caption := 'Hayır';
SuiMessageDialog1.Caption := 'Dikkat;
SuiMessageDialog1.Text := 'Keydetmek İstiyormusunuz?';
SuiMessageDialog1.IconType := suiInformation;
SuiMessageDialog1.UIStyle := macos;

var tus:integer;
begin
tus := SuiMessageDialog1.showmodal();
if tus = SuiMessageDialog1.Button1modalresult then
.........
if tus =  SuiMessageDialog1.Button2modalresult then
.........

[kadirkurtoglu]

vedat hocam ben bu sui yi kullanarak bir program bile yazdım ama boşuna uğraşmışım. çünkü sui de görsellik üzerine bir bileşen olduğu için bütün bileşenleri sui sekmesinde bulunan bileşenleri kullanmanız gerekiyor. bunun yerine vclskin diye bir compenent var forma ne koyarsan koy herşeyi değiştiriyor ve 70 görsel skin dosyası var hatta mesaj pencereleri hatta dialog pencereleri ve hatta fastreportu bile değiştiriyor. ve iki tane cik bileşeni var biri skindata diğeri skinstore 2.bileşen görsel skinleri exe ye gömüyor ve tamamı sadece exe yi 1.5 mb büyütüyor bence çok değil. bu kadar reklam yeter sanırım. bence mükemmel bir compenent.

[vedatkaba]

hocam size katılıyorum bütün görüşlerinizde.Zaten ben sadece mesaj pencerelerini değiştirmek istiyorum.Eğer bunuda beğenmezsem kafama göre bir dialog penceesi tasarlayıp onu kullanırım.Akşam ben boşuna uğraşmışım normal msaj penceleri kullanımını gözümün önüne getirsem demekki yapacaktım.Neyse bu kadar yeter kafa ütülemeye.Teşekkür ederim.

[ikra]

Kod: Tümünü seç

procedure TForm1.kayit;
var q : word;
begin
suimsg1.text := 'kayit etmek istiyormusun?';
q := suimsg1.showmodal;

case q of mrYes:
begin
islem
end;
end;

tuslarin geri dönüsümlerini suimsg nin event penceresinden ayarlayabilirsin. ben mryes, mrno olarak ayarldim. o nun icin bu tür bir örnek verdim...
kolay gelsin...

[aLonE CoDeR]

Merhaba.
Bu tür dialog pencereleri için kendiniz bir tasarım oluşturmanız en mantıklı çözümdür..Bazen öyle bi noktaya geliyorsunuz ki kullandığınız onca dialog pencerelerini değiştirmeniz dahi gerekebiliyor.Oysa kendiniz tasarlarsanız, sadece ilgili parametreyi ya da tasarımı değiştiriyorsunuz ve tüm proje buraya başvurduğundan zahmetsizce modify yapabiliyorsunuz..
Kolay gelsin.