Re: Подскажите с скриптом...
Спасибо!
Дмитрий, а у Вас в заначки случайно нет песочных часиков?
(клик на Button1 = 3 секунды наслаждения)
С Уважением и Благодарностью Роман!!!
My Visual Database → Russian → Подскажите с скриптом...
Спасибо!
Дмитрий, а у Вас в заначки случайно нет песочных часиков?
(клик на Button1 = 3 секунды наслаждения)
С Уважением и Благодарностью Роман!!!
Screen.Cursor := crHourGlass; // меняет курсор на песочные часы
Screen.Cursor := crDefault; // возвращает стандартный курсор
О...не подскажите как сюда время (3 секунды) прикрутить?
программа ругается на научный метод тыка...
procedure Form1_Button4_OnClick (Sender: string; var Cancel: boolean);
begin
Screen.Cursor := crHourGlass;
end;
procedure Form1_Button4_OnAfterClick (Sender: string);
begin
Screen.Cursor := crDefault;
end;
не совсем понимаю, о каких 3 секундах идет речь.
ваш код синтаксически верен, если возникает ошибка, пожалуйста указывайте ее.
не совсем понимаю, о каких 3 секундах идет речь.
на форме есть мемо...при редактировании жму на битон сохранить запись..
конечно же запись сохранилась за доли секунд, но для успокоения,
что я действительно нажал битон сохранить запись:
появляются песочные часики и радуют меня своим присутствием 3 секунды...
Вот возник вопросик как к скрипту время (3 секунды ) прикрутить?
просьба странная, но выполнимая, создайте событие OnAfterClick для кнопки "Сохранить запись"
procedure frmEmployee_Button2_OnAfterClick (Sender: string);
begin
Screen.Cursor := crHourGlass;
Sleep(3000);
Screen.Cursor := crDefault;
end;
Работает!!! УрррА!
С Уважением и Благодарностью Роман!!!
Всем хорошего настроения!
Дмитрий, я как всегда.... с не стандартной ситуацией....
есть Form1 на ней Button1 и Button2...при клике на них вызывается одна и та жа Form2!
существует ли такая возможность....?
когда открылась Form2 от клика с Form1 по Button1, то на Form2 по двойному клику срабатывало:
procedure Form2_TableGrid1_OnDoubleClick (Sender: string);
begin
Form2.Button3.Click;
end;
если же Form2 открылась от клика с Form1 по Button2, то на Form2 по двойному клику срабатывало:
procedure Form2_TableGrid1_OnDoubleClick (Sender: string);
begin
Form2.Button4.Click;
end;
Это возможно или это из мира фантастики?
заведите глобальную переменную например: isButton1: boolean;
затем для этих двух кнопок создайте событие OnClick, для первой кнопки в этом событии установите переменную isButton1 := True;
а для второй кнопки isButton1 := False;
затем в событии Form2_TableGrid1_OnDoubleClick делайте проверку этой переменной так
if isButton1 then Form2.Button3.Click else Form2.Button4.Click;
Добрый день !
Подскажите пожалуйста , как скриптом переместить компонент на форме . В идеале хотелось бы его выделить мышкой и потаскать по форме .
Добрый день !
Подскажите пожалуйста , как скриптом переместить компонент на форме . В идеале хотелось бы его выделить мышкой и потаскать по форме .
Приветствую,
сделал для вас проект с примером:
Добрый день .
Спасибо большое за пример. Подскажите пожалуйста, возможно ли скриптом сделать копию компонента на форме(типа Image , Label) ?
Всем доброго дня!
Этот скрипт считает количество записей в таблице...
procedure Form1_TableGrid1_OnChange (Sender: string; ACol, ARow: Integer);
var
s: string;
begin
s := VarToStr ( SQLExecute('SELECT count(id) FROM base ;') );
Form1.Label35.Caption:= ' : ' + s;
end;
Добрые люди...подскажите, что надо здесь изменить для подсчёта записей в TableGrid1?
С Уважением и Благодарностью Роман!!!
попробуйте так:
procedure Form1_TableGrid1_OnChange (Sender: string; ACol, ARow: Integer);
var
s: string;
begin
s := IntToStr (SQLExecute('SELECT count(id) FROM base') );
Form1.Label35.Caption:= ' : ' + s;
end;
pha1984
попробуйте так:
Не получилось...все равно считает в таблице(Б.Д.)...
Что то надо изменить в третей строчки с низу..., чтоб считало в самом гриде...
Может ещё какие есть варианты?
прикрепите проект
Hello poma
To count records in a TableGrid, I dot so :
procedure Form1_Button1_OnAfterClick (Sender: string);
Var i : Integer; // et le compteur est mis à jour
begin
Form1.TableGrid1.dbUpdate;
i := Form1.TableGrid1.RowCount;
Form1.Label1.Caption := IntToStr(i) + ' books in table Biblio';
end;
I put it behind OnAfterClick Event, so my table is automatically updated .
Is it OK for you ?
JB
Ура! заработало...
Спасибо Вам друзья...pha1984...jean.brezhonek
прикрепил проект, вдруг кому то пригодиться...
Hello Pomah
Glad I could help you.
I've tested your project. ALl is OK !
In Form3, for Form3.Edit1, behind Form3.OnShow Event, I add this :
procedure Form3_OnShow (Sender: string; Action: string);
begin
Form3.Edit1.SetFocus;
end;
The end user like that facilitates it work !!!! Ah ! Ah !
I too am an end user !
JB
Hello Pomah
Another thing
When deleting an item in a grid, behind Action Delete Record, I always check
this instruction : Ask for confirmation to delete the record.
Many users do not take the time to read the messages on the screen.
They swear a lot, but after it's too late.
JB
Друзья поправьте пожалуйста, а то ошибку за ошибкой выдаёт...
//цвет текста
procedure Form1_Edit2_OnChange (Sender: string);
begin
Form1.Edit2.Text.Color := clRed;
end;
Form1.Edit2.Font.Color := clRed;
Дмитрий ...
не работает...а событие такое: procedure Form1_Edit2_OnChange (Sender: string);
Добрый день !
Подскажите пожалуйста, возможно ли скриптом сделать копию компонента на форме(типа Image , Label) ?
Добрый день !
Подскажите пожалуйста, возможно ли скриптом сделать копию компонента на форме(типа Image , Label) ?
Вы можете с помощью скрипта создать компонент, и присвоить ему такие же свойства.
Например у вас на форме есть Label1, чтобы создать его копию:
procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
var
dbLabel: TdbLabel;
begin
dbLabel := TdbLabel.Create(Form1);
dbLabel.Parent := Form1;
dbLabel.Caption := Form1.Label1.Caption;
end;
My Visual Database → Russian → Подскажите с скриптом...
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi