Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];

Вниз

maskedit   Найти похожие ветки 

 
zep ©   (2004-05-17 23:30) [0]

привет всем. У меня есть 2 вопросса
1 подскажите кок мне сделать такую весч,в maskedit"е ограничить
ввод числа до 24:59:59
и второй вопросс вот тоже число 24:59:58 как при нажатии
на число 24 с помощью кампанента Updown уменьшать или увеличивать только его,а при нажатии
на число 59 с помощью кампанента Updown уменьшать или увеличивать его ...

зарание спасибо


 
connect   (2004-05-17 23:32) [1]

Так и не сделал. Спроси у Билла. Шутка. Мне самому интересно как это сделать.


 
zep ©   (2004-05-17 23:44) [2]

никто не знает чтоли


 
connect   (2004-05-17 23:48) [3]

Погодь я пробую. Если получиться то вышлю


 
connect   (2004-05-18 00:35) [4]

procedure TForm1.UpDown1Changing(Sender: TObject;
 var AllowChange: Boolean);
begin
If (MaskEdit1.SelStart=0)or(MaskEdit1.SelStart=1)
 then
   begin
     UpDown1.Max:=24;
     MaskEdit1.Text:=inttostr(UpDown1.Position)+copy(MaskEdit1.Text,3,length(MaskEdit1.Text));
   end;
end;


 
zep ©   (2004-05-18 01:17) [5]

connect большое спасибо за код, но не мог ли ты подсказать как для 59 минут сделать или дать сылочку на инфу по этим компанентам


 
connect   (2004-05-18 08:55) [6]

Щас погодь


 
connect   (2004-05-18 10:03) [7]

Почти как в виндузе

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ComCtrls, StdCtrls, Mask;

type
 TForm1 = class(TForm)
   MaskEdit1: TMaskEdit;
   UpDown1: TUpDown;
   procedure FormCreate(Sender: TObject);
   procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
 h,m,s:string;
 hh,mm,ss,ms:word;
 sel:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

decodetime(time,hh,mm,ss,ms);
if (hh<10)
then
h:="0"+inttostr(hh)
else
 h:=inttostr(hh);

if mm<10
then
m:="0"+inttostr(mm)
else
m:=inttostr(mm);

if ss<10
then
s:="0"+inttostr(ss)
else
s:=inttostr(ss);

MaskEdit1.Text:=h+":"+m+":"+s;
MaskEdit1.SelStart:=0;
MaskEdit1.SelLength:=2;
end;

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
   sel:=MaskEdit1.SelStart;
   if (MaskEdit1.SelStart=0)or(MaskEdit1.SelStart=1)
     then
       begin
        UpDown1.Max:=23;
        if  updown1.Position<10
             then
              h:="0"+inttostr(updown1.Position)
             else
              h:=inttostr(updown1.Position);
         sel:=0;
       end;

  if (MaskEdit1.SelStart=3)or(MaskEdit1.SelStart=4)
     then
       begin
         UpDown1.Max:=59;
         if  updown1.Position<10
             then
              m:="0"+inttostr(updown1.Position)
             else
              m:=inttostr(updown1.Position);
          sel:=3;
       end;

   if (MaskEdit1.SelStart=6)or(MaskEdit1.SelStart=7)
     then
       begin
         UpDown1.Max:=59;
           if  updown1.Position<10
             then
              s:="0"+inttostr(updown1.Position)
             else
              s:=inttostr(updown1.Position);

         sel:=6;
       end;
MaskEdit1.Text:=h+":"+m+":"+s;

end;

end.


 
connect   (2004-05-18 10:07) [8]

В конце надо добавить

MaskEdit1.SelStart:=sel;
MaskEdit1.SelLength:=2;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.036 c
3-1083653648
SergP
2004-05-04 10:54
2004.05.30
Как добавить поле с постоянным значением в результат запроса?


3-1083827681
leonidus
2004-05-06 11:14
2004.05.30
Как сконвертить dbf-файл в mdb-файл?


1-1084559440
Dhg
2004-05-14 22:30
2004.05.30
Как определить цвет пикселя.


6-1081932568
TButton
2004-04-14 12:49
2004.05.30
Как назначить обработчик события сокету


14-1084124744
TCrash
2004-05-09 21:45
2004.05.30
Стили музыки





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский