|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
просьба с диалогом где вместо кнопок label
вот код
Код:
Function ShowDialogYesNo(TextOkno, TextMemo, TextYesButton, TextNoButton:String; TextColorYesButton, TextColorNoButton, TextColorTenYesButton, TextColorTenNoButton:TColor; ColorYesButton, ColorNoButton:TColor):TButtonLabelClick; begin Form2.Caption:=TextOkno; Form2.Memo1.Text:=TextMemo; Form2.Label1.Caption:=TextYesButton; Form2.Label2.Caption:=TextNoButton; Form2.Label1.Font.Color:=TextColorYesButton; Form2.Label2.Font.Color:=TextColorNoButton; Form2.Label1.ShadowColor:=TextColorTenYesButton; Form2.Label2.ShadowColor:=TextColorTenNoButton; Form2.Label1.Color:=ColorYesButton; Form2.Label2.Color:=ColorNoButton; //|||||||||||||||||||||||||||\\ end; Не спрашивайте почему Label в данном случае Raize TLabel просто скажите решение |
#2
|
||||
|
||||
зато ModalResult остался у формы
Пишу программы за еду. __________________ |
#3
|
||||
|
||||
Ты имеешь в виду возвращать форме Rusult кнопки которую нажа тоесть при нажатии на кнопку мы форме возвращаем к примеру mrOk
|
#4
|
||||
|
||||
Вот так чтоли
Код:
Type TButtonLabelClick=(lcYes, lcNo); Function ShowDialogYesNo(TextOkno, TextMemo, TextYesButton, TextNoButton:String; TextColorYesButton, TextColorNoButton, TextColorTenYesButton, TextColorTenNoButton:TColor; ColorYesButton, ColorNoButton:TColor):TButtonLabelClick; var Form2: TForm2; ColorYesLbl, ColorNoLbl:TColor; TextColorYesLbl, TextColorNoLbl, TextColorTenYesLbl,TextColorTenNoLbl:TColor; implementation {$R *.dfm} Function ShowDialogYesNo(TextOkno, TextMemo, TextYesButton, TextNoButton:String; TextColorYesButton, TextColorNoButton, TextColorTenYesButton, TextColorTenNoButton:TColor; ColorYesButton, ColorNoButton:TColor):TButtonLabelClick; begin Form2.Caption:=TextOkno; Form2.Memo1.Text:=TextMemo; Form2.Label1.Caption:=TextYesButton; Form2.Label2.Caption:=TextNoButton; Form2.Label1.Font.Color:=TextColorYesButton; Form2.Label2.Font.Color:=TextColorNoButton; Form2.Label1.ShadowColor:=TextColorTenYesButton; Form2.Label2.ShadowColor:=TextColorTenNoButton; Form2.Label1.Color:=ColorYesButton; Form2.Label2.Color:=ColorNoButton; //|||||||||||||||||||||||||||\\ If Form2.ShowModal=mrYes then Result:=lcYes else Result:=lcNo; end; procedure TForm2.Label1Click(Sender: TObject); begin Form2.ModalResult:=mrYes; end; procedure TForm2.Label1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Label1.TextStyle:=tsShadow; end; procedure TForm2.Label1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Label1.TextStyle:=tsNormal; end; procedure TForm2.Label2Click(Sender: TObject); begin Form2.ModalResult:=mrNo; end; procedure TForm2.Label2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Label2.TextStyle:=tsShadow; end; procedure TForm2.Label2MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Label2.TextStyle:=tsNormal; end; |
#5
|
||||
|
||||
ну типа того. учитывая что:
Код:
TModalResult = Low(Integer)..High(Integer); Пишу программы за еду. __________________ |
#6
|
||||
|
||||
Ну да. Я свой тип специально сделал чтобы добавлять вбудущем новые кнопки. Сама по себе функция 1 форма 2 диалога и все благодаря Memo
|