1

(1 replies, posted in General)

здравейте,възможно ли е една и съща форма (frmApplication) да бъде отворена едновременно (каскадно) в два различни прозореца?

2

(3 replies, posted in Russian)

много благодаря и още един въпрос:
как мога да запаметя в таблицата фаилове от компютъра,след което при двукратно кликване на запис от таблицата,да се отвори посочения файл....благодаря

3

(3 replies, posted in Russian)

Здравейте,как да изключа опцията ShowRecord ,когато кликна два пъти върху записа в таблицата.Благодаря

4

(1 replies, posted in Russian)

здравейте,моля за помощ как да съставя формулата:

procedure CalculateTotal50;
begin
    if ValidFloat(frmZakaz.edZ.Text)  then
    begin
     frmZakaz.edtotal.Text := StrToFloat(frmZak.edZ.Text) -2;

if (frmZakaz.edtotal.text) *  число кратное трём =0  then frmZakaz.edtotal.visible := False;

if (frmZakaz.edtotal.text) *  число кратное трём <>0 then frmZakaz.edtotal.visible := True;
    end;

5

(1 replies, posted in General)

Здравейте,когато в програмата отворя 2 или повече прозорци,мога да работя само в един /последния/.Ако искам да работя в първия,трябва да затворя последния.Как може прозорците да стават активни когато кликна върху тях и да работя в който си избера аз,без да се налага да затварям останалите?Благодаря

6

(4 replies, posted in Script)

може би стара версия sad

7

(4 replies, posted in Script)

Благодаря  derеk.вероятно има грешка в скрипта.

8

(4 replies, posted in Script)

здравейте,възможно ли е използване на функция hint за всеки запис в ТableGrid?
пример: когато  показалеца е върху Иван, Hint  подсказва,че е от Москва
              когато показалеца е върху Петър,  Hint подсказва,че е  от Париж
Благодаря

9

(1 replies, posted in Reports)

здравейте,как може ,когато memo11,memo12,memo13,memo14 и memo15 няма текст,тогава memo10 да бъде скрито и да не се показва.Благодаря

10

(3 replies, posted in Script)

Благодаря,отново имам проблем

когато числото в Edit2 е по малко от 1 (например 0,2) получавам съобщение за грешка :Floating point division by zero

procedure CalculateTotal90;
begin
    if ValidFloat(frmzak.Edit1.Text) and ValidFloat(frmzak.Edit2.Text)  then
    begin
 
    frmZak.Edit3.Text := FloatToStr( StrToFloat(frmZak.Edit1.Text) / StrToFloat(frmZak.Edit2.Text) );

    end else
    begin
        frmZak.Edit3.Text := '0';

    end;
    end;



      procedure frmzak_Edit2_OnChange (Sender: string);
begin
    CalculateTotal90;
end;

11

(3 replies, posted in Script)

здравейте,със 2 стойности не работи


procedure frmSav_Edit2_OnChange (Sender: string);
begin
if frmSav.Edit2.Text='0,50' then frmSav.Label4.Caption :='нeподходящ';
if frmSav.Edit2.Text='1,00' then frmSav.Label4.Caption :='нeподходящ';


if frmSav.Edit2.Text<>'0,50' then frmSav.Label4.Caption :='подходящ';
if frmSav.Edit2.Text<>'1,00' then frmSav.Label4.Caption :='подходящ';

    end;

12

(9 replies, posted in Reports)

здравейте,възможно ли е в Report  целите числа да си се показват като цели (15) ,а десетичните числа да се показват с три знака след десетичната запетая (15,400).Благодаря

13

(9 replies, posted in Reports)

здравейте,възможно ли е изтриване на запис по следния начин:

procedure frmZakaz_Button6_OnClick (Sender: string; var Cancel: boolean);
  begin
  SQLExecute('delete name from zakaz WHERE id='+IntToStr(frmzakaz.TableGrid2.dbItemID));
    end;

благодаря

14

(9 replies, posted in Reports)

здравейте,възможно ли е :
if Form1.Edit1.Text = 'blabla' then Form1.Edit1.Visible := False;
if Form1.Edit1.Text = 'blawwwbla' then Form1.Edit1.Visible := True;
тоест ,ако част от текста в Edit1 съдържа "www"  тогава Form1.Edit1.Visible := True;
Благодаря

15

(9 replies, posted in Reports)

здравейте,как да направя така,че когато въведа число в едно текстово поле (Form1.Edit1) ,да се промени размера на друго текстово поле (Form1.Edit2)    пример:  Form1.Edit2.Width := Form1.Edit1.Text;

16

(9 replies, posted in Reports)

Благодаря...работи

17

(9 replies, posted in Reports)

Здравейте,не мога да се справя със следния проблем:
в отчета ( Form1.Button4)  искам да имам отчет на клиентите и сумата.В приложения пример сумата е коректна,но клиентите не...
За всеки месец имам по 1 клиент,а ми показва че имам ... / януари 3, февруари2,  март1/
поскажете моля.Благодаря

18

(3 replies, posted in Reports)

Благодаря Димитрий,но аз имах предвид принтиране на избран файл  ,с функция " CopyTo"  na dbPhoto

19

(3 replies, posted in Reports)

Здравейте,в това приложение има бутон за принтиране на всички записи.Възможно ли е да се добави нов бутон към точно това приложение който да принтира избран запис от таблицата? ...Благодаря

20

(23 replies, posted in Russian)

Здравейте,имам следния въпрос:
procedure  frmZakaz_Button1_Click (Sender: string; var Cancel: boolean);
  begin
if frmZakaz.Edit1.??????? 
frmZakaz.Button5.click;
end;

Въпроса ми е Button5 да бъде кликнат ако  върху Edit1 е кликнато и има маркер

21

(22 replies, posted in Russian)

procedure Form1_OnShow (Sender: string; var Cancel: boolean);
begin

Form1.ComboBox1.Text := 'ОПИТ';
end;

но не се получава...възможно ли е?

22

(22 replies, posted in Russian)

извинете

23

(22 replies, posted in Russian)

здравейте,имах предвид когато  form1_OnShow    ComboBox да изглежда така:

24

(22 replies, posted in Russian)

здравейте,възможно ли е когато в  ComboBox  не е избран запис  /положение -1/   да бъде надписан с текст /например .кйгфкйхгф/

25

(22 replies, posted in Russian)

Здравейте,как мога да забраня в EditCounter да се вписват друго освен цифри,защото ако  сбъркам и вместо цифра,въведа буква ,изписва грешка и размества подредбата на колоните в таблицата
Благодаря