Delphi Pages Forums  

Go Back   Delphi Pages Forums > Delphi Forum > General

Lost Password?

Reply
 
Thread Tools Display Modes
  #1  
Old 12-10-2006, 10:06 PM
Bharathi Bharathi is offline
Senior Member
 
Join Date: Oct 2006
Posts: 120
Default how to show the next step visually in application???

hi,
consider i have many buttons in my application. i want to show which button the user want to click first??.

what is the best way to show steps visually in the application software in delphi??

i explain it correctly??
Reply With Quote
  #2  
Old 12-10-2006, 10:43 PM
omni omni is offline
Senior Member
 
Join Date: Feb 2005
Posts: 194
Default RE: how to show the next step visually in application???

Maybe hide all buttons except that one that have to be pressed. Then hide it and show the next one.
You can do the same with enabling/disabling buttons.

If i have helped you, click ACCEPT AS ANSWER to help me get my 15th point!
Reply With Quote
  #3  
Old 12-10-2006, 10:46 PM
davidj davidj is offline
Senior Member
 
Join Date: Jan 2001
Posts: 2,900
Default RE: how to show the next step visually in application???

Maybe use one button and change the action and the label.

Its hard to say as the question is a little unclear.
Reply With Quote
  #4  
Old 12-10-2006, 10:52 PM
Bharathi Bharathi is offline
Senior Member
 
Join Date: Oct 2006
Posts: 120
Default RE: how to show the next step visually in application???

hi,
suppose i have New and View button means. i plan to show the first New Button FLASHED. after finishing i want View button to be flashed.

how to do the flashing a button(with color) to show the next step visually??
Reply With Quote
  #5  
Old 12-11-2006, 12:15 AM
dorjvar dorjvar is offline
Member
 
Join Date: May 2005
Posts: 38
Default RE: how to show the next step visually in application???

hi
you can do flashing your button with changing
its font color by timer
Reply With Quote
  #6  
Old 12-11-2006, 12:35 AM
Bharathi Bharathi is offline
Senior Member
 
Join Date: Oct 2006
Posts: 120
Default RE: how to show the next step visually in application???

Hi
Help me with some code to do with timer?
Reply With Quote
  #7  
Old 12-11-2006, 12:53 AM
Bharathi Bharathi is offline
Senior Member
 
Join Date: Oct 2006
Posts: 120
Default RE: how to show the next step visually in application???

hi,
i try to say clearly.
i have two buttons. I want to flash the second button when i click the first button(using timer if possible) until I click the second button.

help me
Reply With Quote
  #8  
Old 12-11-2006, 06:30 AM
MrBaseball34 MrBaseball34 is offline
Senior Member
 
Join Date: Jan 2001
Posts: 7,260
Default RE: how to show the next step visually in application???

Accept dorivar's post as the answer, please...

You MUST use TBitBtns as TButton doesn't allow colored
fonts.

[delphi]
var
Form1: TForm1;
FlashCounter: Integer;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Timer1.Enabled := not Timer1.Enabled;
if not Timer1.Enabled then
begin
BitBtn1.Font.Color := clWindowText;
BitBtn1.Font.Style := [];
end;
end;

// I set the Timer's Interval to 750. meaning
// the button flashes every 3/4 of a second.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Inc(FlashCounter);
if FlashCounter mod 2 = 0 then
begin
BitBtn1.Font.Color := clRed;
BitBtn1.Font.Style := [fsBold];
end
else
begin
BitBtn1.Font.Color := clWindowText;
BitBtn1.Font.Style := [];
end;
end;
[/delphi]


MrBaseball34
Hook'Em Horns!

2005 College Football National Champions
2005 College Baseball National Champions
Reply With Quote
  #9  
Old 12-11-2006, 06:33 AM
MrBaseball34 MrBaseball34 is offline
Senior Member
 
Join Date: Jan 2001
Posts: 7,260
Default RE: how to show the next step visually in application???

oops, make this change, forgot that you wanted to
stop when you clicked the button that was flashing.

[delphi]
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Inc(FlashCounter);
if FlashCounter mod 2 = 0 then
begin
BitBtn1.Font.Color := clRed;
BitBtn1.Font.Style := [fsBold];
end
else
begin
BitBtn1.Font.Color := clWindowText;
BitBtn1.Font.Style := [];
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Timer1.Enabled := False;
BitBtn1.Font.Color := clWindowText;
BitBtn1.Font.Style := [];
end;
[/delphi]

MrBaseball34
Hook'Em Horns!

2005 College Football National Champions
2005 College Baseball National Champions
Reply With Quote
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is On

Forum Jump


All times are GMT. The time now is 09:45 AM.


Powered by vBulletin® Version 3.8.8
Copyright ©2000 - 2019, vBulletin Solutions, Inc.